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Page 17: Equation (47) should read 

% - 

Page 25, line 15: Immediately following the sentence ending with the word 

"constant" insert the following sentences: 

It should be noted that the four functions described above do not destroy the 
contents of the multiplier- quotient register, C(MQ), although C(MQ) may be 
altered as a result of the shifting. This fact is used in some portions of the 
program to avoid storing C(MQ). Therefore any routines written to replace the 
functions discussed here must not destroy C(MQ). 

Page 25, line 23: Immediately preceding the last paragraph insert the fol- 

lowing paragraphs: 

In addition to the program input to be discussed in the section PROGRAM 
INPUT BATA, thermodynamic data must be supplied to the program. These data are 
assumed to be available as a master data tape, which must be loaded onto tape 
handler number four at the start of computation and unloaded when the computa- 
tions have been completed. Since this master data tape is used for both reading 
and writing it cannot be file protected. Loading and unloading the data tape is 
time consuming and costly. It has been found to be economical to make the data 
tape from binary cards rather than to stop the computer for loading and unload- 
ing the data tape. The following changes will permit operation in this fashion. 
For the IBM 7090 program, replace card number 123, page 87 (PAUSE 11111) with 

5000 REWIND 4 

CALL BCREAD (DATA(44), DATA(l)) 

DATA( 23 ) =DATA( 2 6 ) 

WRITE TAPE 4, (DATA(l), 1=1, 23) 

IF (MDATA(l)-MEED) 5000, 429, 5000 

Also remove card number 332, page 88 (PAUSE 77777). The corresponding change 
for the IBM 704 program involves replacing card number 106, page 50, 

(PAUSE 11111) with 
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5000 


REWIND 4 

CALL BCREAD (DATA(44), DATA(l)) 

DATA( 2 3 ) =DATA( 26) 

WRITE TAPE 4, (DATA(l), 1=1, 23) 

S CLA DATA(l) 

S SUB END , 

S TNZ*5000'i 

and removing card number 432, page 53 (PAUSE 77777). If these changes are made, 
then the master data tape is no longer needed but the equivalent binary cards 
must be available. These can be made from the master data tape. 

These changes use the Subroutine BCREAD (A,B). This subroutine is part of 
a computer system at the Lewis Research Center and is not given in this report; 
however, its only function is to read binary cards punched by a companion Sub- 
routine BCDUMP (A,B). In both cases the arguments A and B are, respectively, 
the first and last words to be read or punched. Each binary card contains 

22 words of information and thus, since the data for each species requires 

23 words (see fig. 6), two cards are required for each species. The first of 
each pair of cards contains the first 22 words while the second card of each 
pair contains the 23rd word plus the first 3 words of the record for identifica- 
tion purposes. These two subroutines are not essential and can be replaced by 
any equivalent subroutines or sequence of instructions. 

Page 62: Replace card number 1418, statement number 1126, with 

IF (EN LN( J) ) 2125, 1126, 2125 
2125 P=P+EXPF(EN LBT(j) ) 

1126 CONTINUE 

Page 64: Replace card number 1709, statement number 309, with 

309 PCP( 25 ) =PCP( IADD) 

IADD=25 

Page 96: Replace card number 1033, statement number 1031, with 

1031 IF (WF) 1050, 1050, 1040 

Page 96: Replace card number 1039 with 

1050 DO 2000 1=1,15 

Page 99: Replace card number 1333 with 

IF (ABSF(D LN T) -ABSF(X(lQl) ) ) 501, 913, 913 
Page 99: Replace card number 1341 with 

IF (DEL N( J) ) 917, 917, 1917 
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Page 99: Replace card number 137^, statement number 1126, with 


IF (EN LN(J)) 2125, 1126, 2125 
2125 P=P+EXPF(EN LW(j) ) 

1126 CONTINUE 

Page 102: Replace card number 1656, statement number 309, with 

309 POP ( 25 ) =PCP( IADD ) 

IADD=25 
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SUMMARY 

A detailed description of a computer program for computations in- 
volving chemical equilibrium in complex systems is given. It is based 
on iteration equations for chemical equilibrium computations that are 
independent of choice of components. The program permits calculations 
such as: (l)- chemical equilibrium for assigned temperatures and pres- 

sures, (2) theoretical rocket performance for both frozen and equilib- 
rium compositions during expansion, and (3) Chapman- Jouguet detonation 
properties. 

A discussion of some of the problems attendant with the presence 
of condensed species as reaction products is also given. 


INTRODUCTION 

The problem of the numerical solution of the nonlinear algebraic 
equations describing chemical equilibrium has been the subject of nu- 
merous papers. Reference 1 contains an extensive bibliography on the 
subject prior to 1959. Since the publication of reference 1, many addi- 
tional papers have been written dealing with the computation of chemical 
equilibrium properties (refs. 2 to 16). Some of the references describe 
programs for digital computers. Reference 1, for example, contains a 
detailed description of a program written at the Lewis Research Center 
for the IBM 650 to calculate equilibrium compositions and rocket per- 
formance. 

The purpose of this report is to describe in detail a computer pro- 
gram written at the Lewis Research Center for the IBM 704 and 7090 for 
the computation of chemical equilibrium in complex systems with several 
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applications. Use has been made of the modified Huff method described 
in reference 15, which permits iteration equations to be written in a 
form independent of the choice of components. The program can perform 
the following calculations: (l) chemical equilibrium for assigned tem- 

peratures and pressures, (2) theoretical rocket performance for both 
frozen and equilibrium composition during expansion, and (3) Chapman- 
Jouguet detonation properties. 

The objective has been to develop a program that can compute equi- 
librium compositions for any chemical system for which thermodynamic 
data exist. To accomplish this objective, several special techniques 
were incorporated to handle problems that would otherwise not converge. 
These techniques, which have proven successful in the many problems at- 
tempted, include a flexible convergence control parameter, automatic 
inclusion of condensed species with the possibility of triple points, 
and a pivoting procedure during solution of the iteration equations. 

The computer program will be described in the following sections 
of the report with sufficient detail to permit its use. The following 
are some of its general features: 

(1) It requires only simple input. 

(2) It requires no initial estimates. 

(3) It handles up to 15 chemical elements and a total of 90 reac- 
tion products including condensed species. 


SUMMARY OP EQUATIONS USED IN THE PROGRAM 

The derivations of equations used in the program and a discussion 
of the assumptions involved have been previously published (refs. 1, 15, 
17, 18, and 19). However, for convenience in describing the computer 
program, the pertinent equations from these references will be summa- 
rized in this report. 

The notation of these references was used when possible. However, 
since the notation in all these references is not exactly the same, com- 
plete consistency was not possible, in particular for thermodynamic func- 
tions. In this report, for heat capacity, enthalpy, entropy, and free 
energy, a capital Roman letter refers to the quantity per mole, while 
a capital script letter is the dimensionless form (which, in the case 
of entropy and free energy, may include additional dimensionless terms). 
A lower-case Roman letter is the quantity per unit mass, while a lower- 
case script letter has the units of moles per unit mass of reactant. 
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Equilibrium Compositions and Properties of 
Complex Mixtures 

The equilibrium compositions are obtained by a Newt on-Raph son iter- 
ation. The iteration equations are those of the modified Huff method, 
which were derived in reference 15 and are presented in figure 2 of that 
report. These equations are presented herein as table I with symbols 
altered to correspond to those used in this report. The corrections to 
the estimates that are obtained from this set of iteration equations 
are unaffected by the choice of components and are only affected by the 
current estimates. These equations make no distinction between compo- 
nents and constituents, and thus any species can be dropped from the 
calculation. The iteration equations give corrections to the moles of 
each condensed species and the variables A and T directly. (Symbols 
are defined in appendix A. ) The corrections to the moles of gaseous 
species are obtained from the following equation (see eq. (88), ref. - 15) 

l 

A In = - ^ + a^-q A In A In T (i = 1, 2, . . . , m) 

k=l 


(la) 


It is sometimes disadvantageous to apply the entire correction 
called for by the iteration equations. Consequently an empirical con- 
vergence parameter A(0 < A < l) is used to control the size of the 
corrections. A numerical value for A is determined at each iteration. 
Methods for evaluating A are discussed in the section Evaluation of 
Convergence Parameter A. New estimates are obtained from the following 
equations : 

= In np + A A In n . (i = 1, 2, . . ., m)~l 


(j+l) 

In n^ 


(J+1) (J) 


n. 

l 


= n^ + A Zkm (i = m + 1, m + 2, . . . , n) 


In A 


= In A^ + A A In A 


r ( lb ) 


In T 


(j + l) _ 


In T 


(j) 


+ A A In T 


The indices j and j+1 signify the estimates for the and 

(j+l) 3 ^ iterations. When the iteration has converged, the moles of 
gaseous species nq will be numerically equal to the partial pressures 
P 1 (i = 1, 2, . . . , m). 
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After the equilibrium compositions have been determined, the three 
independent first derivatives c p , (5 In M/d In T)p, and (d In M/d In P)ij 

can be evaluated by a procedure analogous to that described in refer- 
ence 1. The calculation of c p and (d In M/d In T)p requires the de- 
rivatives (d In n^/d In T)p (i = 1, 2, . . . , m), (d n^ /d In T)p 
(i = m + 1, m + 2, . . . , n), and (d In A/d In T)p. Following the pro- 


cedure of reference 15 for the elimination of linear combination terms , 
the set of equations in table II is obtained for the derivatives 
(d In Uj_/d In T)p (i = 1, 2, . . . , l) , (d n^/d In T)p 

(i = m + 1, m + 2, . . . , n) , and (d In A/d In T)p. The 
(d In n-j/d In T)p are related to these by 



k=l 


(i = 1, 2, 


m) (2a) 


Writing the equation for evaluating the specific heat (eq. (42), ref. 1) 
in the notation of this report and substituting equation (2a) in it 
give 


R 

C P “A 


l m 

ill 

k=l i=l 


a ki^i 


a In 


Ui 


n 


k 


Ad In T 


i=m+l i=l 


m 


m 


i n i + 


(2b) 


i=l 


i=l 


The solution of the equations in table II also gives one of the molec- 
ular weight derivatives by means of the relation 
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The derivative (d In M/d In P) T can be calculated from 


/ d In m\ 
\d In P j T 


2^( a ^ 


Ui 


d In 
S In A 


•k 


T 


k=l i=l 


1 


(3b) 


where the required partial derivatives in (3b) are obtained by a solu- 
tion of the equations of table III of this report. The equations (3a) 
and (3b) and the equations of table III are identical, respectively, to 
equations (48) and (51) and figure 4 of reference 1 except for nota- 
tion. It should be noted that the matrix elements of tables II and III 
are identical with the corresponding elements of table I except for the 
sign of the last column in table II. The isentropic exponent y used 
in the calculations of the velocity of sound is 


X = 


/ o In P\ 
Id In p J 


1 + 


/ 0 In m\ 
\d In P/ T 



(4) 


Frozen Composition and Properties of Complex Mixtures 

In addition to the properties of a complex mixture under conditions 
of chemical equilibrium, it is sometimes desirable to obtain properties 
of the mixture for a fixed composition. The technique for doing this 
has been discussed in reference 1. The procedure employed here is iden- 
tical except it has been found convenient to use the composition in 
terms of mole fractions. For a mixture of fixed composition, entropy, 
and pressure, the temperature is calculated by a Newton-Raphson itera- 
tion. The correction to the current estimate for temperature is ob- 
tained from 


A In T 



n 


Z 


(5a) 


The improved estimate for temperature is then obtained by means of 

In T^ +1 ) = In T^j) -A In T (5b) 

For frozen composition, the three independent first partial deriva- 
tives are : 
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n 


Z ^i x i 


„ i=l 

c n = R 

P m 






i=l 


(6) 


and 


S In M 
In T 


= 0 


( 7 ) 


and 


(cj In m\ 
\<3 In ?) T 


( 8 ) 


The isentropic exponent y is 


r = 


c M 
PC 

V*c - 


R 


( 9 ) 


Rocket Performance Parameters 

The evaluation of rocket performance parameters for a propellant is 
simple once the temperature and composition are known at combustion and 
exit points of a nozzle. The temperature and composition in the combus- 
tion chamber and at all exit points , with the exception of the throat, 
can be determined by the previous iteration equations. The throat con- 
ditions are evaluated with the aid of a secondary Rewton-Raphson itera- 
tion using the equation 


k+1 2M(h c - h£) 

1 + (y + 1)RT 

where (P /p)-^ is the k^* 1 estimate for pressure ratio at the throat and 
h^ is the value of h* for the pressure corresponding to this pressure 
ratio and an entropy equal to the combustion entropy. This procedure is 
identical to the one described in reference 1. The method used to ob- 
tain the initial estimate for P c /P and T at the throat is described 
in a later section. 



£ 

P/k 
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The following formulas used in computing the various performance 
parameters were derived from the one-dimensional forms of continuity, 
energy, and momentum equations and the following assumptions: zero ve- 

locity in the combustion chamber, perfect gas law, complete combustion, 
homogeneous mixing, adiabatic combustion, and isentropic expansion. 

(The units used were h = cal/g, T = °K, P = lb force/sq in. , A = sq in. , 
w = lb mass/sec, and g c = 32.174 (lb mass/lb force) (ft /sec^ ). ) 


Specific impulse with ambient and exit pressures equal, 
(lb force) (sec) /lb mass: 


1 = 294 ' 98 Vuosv 

Specific impulse in vacuum (ambient pressure zero), 
(lb force) (sec) /lb mass: 


A 

I v _ p = I + P - 

YaC 

Nozzle area per unit mass-flow rate, (sq in. ) (sec)/lb: 

A 86.4579 T 


w 


PMI 


Characteristic velocity, ft/sec: 

c * = 8 = p 41 - 32 - 174 P 41 


(ii) 


( 12 ) 


(13) 


(14) 


Coefficient of thrust : 


Cjp 


Sc-*- 

c* 


32.174 


JE_ 

c* 


(15) 


Mach number: 



i 


i 

86.4579 yT 
M 


(16) 


The derivatives of these performance parameters and their use for 
extrapolation and interpolation of rocket performance calculation are 
discussed in reference 17. The formulas for calculating these deriva- 
tives are given in table IV. The program calculates the derivatives of 
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T, I, e, and c* only. The remaining derivatives can be calculated 
from these and other equilibrium properties using the equations in 
table IV. 


Chapman- Jouguet Detonations 

The thermodynamic calculation of the properties of a Chapman- 
Jouguet detonation are discussed in reference 18. The calculation in- 
volves a Revton-Raphson iteration to determine detonation conditions in 
addition to the previously described iteration for determining equilib- 
rium compositions. The detonation iteration equations are presented 
here as table V. Reference 18 also presents a method for evaluating the 
partial derivatives of the detonation velocity, pressure ratio, and tem- 
perature ratio and discusses their use in extrapolating detonation data. 
The equations for evaluating the required partial derivatives are pre- 
sented here as table VI. When detonation conditions have been deter- 
mined, the detonation velocity in meters per second can be calculated as 

% = 91.1845 yS (17) 


where T is in °K. 


Thermodynamic Data 

The thermodynamic data used by the program must be in the form of 
empirical equations; thus 


-|~ = a-]_ + a 2 T + a 3 T 2 + a^T 3 + a 5 T 4 


(18) 


and 


Hm a 0 a . Ur— • a*. 

JL = . + — m .) — fp2 + m3 + _J2. ^4 + 

RT ! 2 1 3 1+ 4 i+ 5 T+ T 


(19) 


and 


IT = a l 


= a n In T + a 9 T + T 2 + T 5 + — T 4 + a^ 


( 20 ) 


The constants a-j_(i = 1, 2, . . ., 7) can be evaluated by the least- 
squares method of reference 19 for one or more temperature intervals . 
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Continuity of the three functions across intervals is assured by the 
aforementioned method since it requires that the residuals vanish at the 
first point of each interval. The equations for determining the con- 
stants are given in table VII. Appendix B lists coefficients for 224 
substances obtained by means of the equations in table VII. The coeffi- 
cients for most substances cover the range from 300° to 5000° K in the 
two intervals 300° to 1000° K and 1000° to 5000° K. 

The enthalpy base selected was an assigned value of zero at 
298.15° K for the reference substances: Al(s), Be(s), C (graphite ) , 

Cl 2 (g), F 2 (g), h 2(s)> L1 ( s ); Mg(s), H 2 (g), Wa ( s) ' ° 2 ^) , P( white), 
S(rhombic), and Si(c), and zero at 0° K for Ar(g), He(g), and Ne(g). 

The value H^gg 15 for a substance formed from any of these refer- 
ence substances except the inert gases is its heat of formation relative 
to these substances at 298.15° K. For example, for C0g, 

H 298 15 = ^298.15 “ _94 ^ 051 - 8 cal/mole, which can be obtained from the 
coefficients in the 300° to 1000° K interval with T = 298.15° K. 


Input Calculations 

The input calculations are identical to those described in refer- 
ence 1. For convenience they will be described in this report. The 
reactants are divided into two groups, fuels and oxidants. The fuels 
are those reactants which will be primarily oxidized, while oxidants 
are those reactants which will be primarily reduced. The fuels can be 
combined into an effective fuel by specifying the relative proportions 
of each fuel. Similarly, the oxidants can be combined into an effective 
oxidant by specifying the relative proportions of the oxidants. The 
overall composition (i.e., the b° T s) can be calculated by specifying 
the relative amounts of the effective oxidant and effective fuel. This 
method of assigning the overall composition is particularly convenient 
if calculations are to be performed for various relative amounts of ef- 
fective oxidant and effective fuel. The gram-atoms of the i th element 
per gram of effective oxidant or of effective fuel are, respectively. 



(21a) 
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or 



( 211 ) 


In terms of these equations, the gram-atoms per gram of reactant b? 
can he calculated as 


o ( b ?) ± + (°/ I ')( b S) 1 

b i = l"+ (0/P) 

Formulas analogous to formulas (21) and (22) are used to calculate 
the following enthalpies: 

Enthalpy per gram of effective oxidant: 


( 22 ) 



(23a) 


Enthalpy per gram of effective fuel: 



k j 


(23b) 


Enthalpy per gram of reactant: 

h f + (0/F)h x 
h 0 = 1 + (0/E) 


(24) 


The relative amounts of effective oxidant and fuel are sometimes given 
as the weight percent of fuel , which is related to the oxidant-to- 
fuel weight ratio 0/P by 


$F 


100 

- 1 + (0/P) 


(25) 
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A third way of specifying the relative amounts of oxidant and fuel is 
hy means of an equivalence ratio , which can he related to O/F. Let 
V+ and V£ be the positive and negative oxidation states of an element 
in its commonly occurring compounds. At least one of these will be 
zero. Thus, for example, the negative oxidation state for chlorine is 
-1 and its positive oxidation state is zero. In terms of the common 
oxidation states for the elements, oxidation states per gram of effec- 
tive oxidant and fuel are 



(26) 


(27) 


(28) 


(29) 


where the sum is over the various elements. In terms of these four 
quantities, the positive and negative oxidation states of the propellant 
are 


V+ + (0/F)V+ 

Y ~ i + co/p) 

v- + (o/f)^t 

V = 1 + (o/f) 

The equivalence ratio is now defined as 

v+ -v? - (°/ F ^ 

£ " V- vj + ( o/f )v~ 


(30) 


(31) 


(32) 
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With this definition, & = 1, ft < 1, and ft > 1 correspond to the stoi- 
chiometric, the oxidant-rich, and the fuel-rich conditions, respectively. 
The equivalence ratio used in this report is the reciprocal of the one 
used in reference 1. 


INITIAL ESTIMATES 

All of the iteration equations listed in the previous section re- 
quire an initial set of estimates. The methods for obtaining estimates 
for each of the iterations will be described below. 


Equilibrium Compositions 

Experience has shown that for the determination of equilibrium com- 
positions it is unnecessary to begin the iteration with a good set of 
estimates, although a good set of estimates will reduce the number of 
iterations required to converge to a solution. However, in the case of 
complex systems, it is often extremely difficult and time consuming to 
obtain a good set of composition estimates manually. The cost of a few 
extra iterations on the computer will be small relative to the cost of 
obtaining estimates manually and inserting them as part of the input in- 
formation. Furthermore, in the case of rocket performance calculations, 
estimates are potentially useful only for combustion conditions. The 
results of combustion conditions serve as estimates for exit conditions. 
Therefore, the importance of initial estimates decreases as the number 
of exit points increases. Because of these considerations, the computer 
program to be described in later portions of this report will not accept 
estimates for any variable other than combustion temperature. 

For the first point, the computer program uses a partial pressure 
of 1 atmosphere for all gaseous species and zero moles for all condensed 
species as initial composition estimates. If the calculation is for an 
assigned enthalpy and no combustion temperature estimate is given, then 
an estimate for temperature of about 3800° K is used. For the mass 
variable A, an estimate of approximately 150 grams is used. For suc- 
ceeding points, the results of the preceding point are used as esti- 
mates . 


Rocket Nozzle Throat 

Good estimates, primarily, for throat pressure and, secondarily, 
for throat temperature, can result in an appreciable decrease in the 
number of iterations because of the presence of a secondary iteration 
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in the calculation of throat conditions in a rocket nozzle. An excel- 
lent estimate of the throat pressure ratio for hoth equilibrium and 
frozen compositions is 


p c /p = 



(33) 


This relation usually gives a throat pressure ratio, which is correct 
to three places. The throat temperature is estimated from the equation 


T = 


1 + T r 


T, 


(34) 


Chapman- Jouguet Detonations 


Because the Chapman- Jouguet calculation is a Newton-Raphson itera- 
tion within the SFewton-Raphson iterations to determine equilibrium gas 
properties, it is very desirable to have good estimates for the pressure 
ratio and the temperature ratio across the detonation wave. A method 
(ref. 18) for obtaining excellent estimates of the temperature and pres- 
sure ratio will be described here briefly. Let the initial estimate for 
pressure ratio be (P/Pj)^ and the initial estimate for temperature 

ratio be (T/T]_) q where T in this initial estimate is the flame tem- 
perature corresponding to an enthalpy 


h = h l + X 


RTj 


M ! 1 

ft. 


(35) 


The initial estimates (P/P-, ) and (t/T-. ) can be further improved by 

0 0 

successive use of the following equations (ref. 18): 




k). 


k+1 


1 + y 
2ya k 




1 + 4/1 - 


410 ^. 

(i + r ) 2 


(36) 



17* \ 

3 R 

! p ' \ " 

y.2 -I 

l x R r k+l 

/ P \ 

o 

I — I 

4 M lCp 

I 

o 

j H 
IPh^ 

2 M l c p r k+l 

\ p l/ 
x x/ k+l 


( 37 ) 
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where 



(38a) 


and 


r k+l 



(38b) 


The quantities M, y, and Cp in equations (36) to (38) are the equilib- 
rium properties for the conditions (P/P^) and (t/T-^q- The technique 

of obtaining good estimates for the iteration equations of table V by- 
means of equations (36) and (37) is so successful that it has been found 
possible to arbitrarily set (P/Pj_) = 15 for all chemical systems. 

If desired, it is also possible to calculate the detonation proper- 
ties by using the equilibrium specific heat ratio K in place of y. 

The specific heat ratio and the isentropic exponent are related by the 
expression 



(39) 


CONVERGENCE 

Convergence in an iterative calculation involves two numerical 
problems: (l) how to assure numerical convergence; and (2) to determine 

at what stage the iteration should be terminated. Both of these are 
discussed in the following sections. 


Evaluation of Convergence Parameter A 

When poor estimates are used in a Newton-Raphson iteration; the 
iteration equations will invariably give corrections that are too large 
(ref. l). If these corrections were to be used directly; they could 
produce a nonconvergent iteration. This type of situation normally oc- 
curs in the early stages of a calculation. At later stages of the iter- 
ation when the problem seems to be converging satisfactorily, the itera- 
tion sometimes attempts to make large increases in the partial pressures 
of species that are present in trace amounts. In both of these cases 
it is essential to place some restriction on the size of the correction. 
This is accomplished by introducing a convergence parameter A into 
equation (lb). 
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The numerical value of the convergence parameter A Is determined 
on the basis of two empirical rules , which experience has shown to be 
satisfactory. For the variables T, A , and n^ for those gaseous spe- 
cies for which ln(n./P n ) > -18.5 and for which & In n. > 0, a number 
A is defined as 

2 

Al ~ max( | A In T| , j A In Aj , A In n j ) (j - 2, . . • > m ) (40) 

This limits the change in T and A and the increase in n<. for those 

O 

gaseous species whose gas phase mole fraction exceeds 10"° ,■ to a factor 
e^ = 7.3891. For those gaseous species for which ln(nj/Po) < -18.5 
and A In nj > 0, a number A 2 is defined as 

/in P 0 - 9.212 - In nA 

A 2 = mini 2 Tl ~ n — -j (J = 1, 2, . . . , m) (4l) 

This prevents a gaseous species with a mole fraction less than 10"® 
from increasing its partial pressure so that its gas phase mole fraction 
would exceed 10“ 4 . The parameter A to be used in equation (lb) is de- 
fined in terms of Aq and A 2 as 

A = min(l, Aq, A 2 ) (42) 


Criteria for Convergence 


The criteria for convergence, which are used in the various itera- 
tive schemes in the program, will be briefly described. If, for some 
applications, the criteria seem too stringent, they can readily be re- 
laxed by making the appropriate changes in the program. 

Equilibrium compositions . - It is assumed that the iteration has 
converged to the correct composition when 


A — I A In nJ < 0.5X10" 5 (j = 1, 2, 

n 1 ' 

£ % 

k=l 


A n^ 
J 


n 


£ 


n, 


k 


-5 


m) 


r ( 43 ) 


< 0.5x10 


(j = m + 1, m + 2, 


n) 
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This has the effect of ins-uring accuracy to five places in composition 
when it is expressed as mole fractions. 

Throat conditions . - The throat conditions in a rocket nozzle are 
assumed to he satisfied if 

< 0.4x10" 4 


This condition in effect makes certain that the Mach number will satisfy 
the condition that 


(44) 


h c - h * 

h c - h 


J( = 1 ±0.2x10"- 


(45) 


Chapman-Jouguet detonations . - The Chapman -Jouguet conditions are 
considered satisfied when 


A In P/P-lI < 0.5X10 


-5 




and 


A In T/TjJ < 0.5x10 


,-5 


(46) 




CONDENSED PHASES 


Apart from some control on correction size there are essentially 
no numerical difficulties in determining equilibrium compositions in a 
gaseous system. A straightforward application of the iteration equations 
of table 1 produces rapid convergence to the correct answers. In prin- 
ciple there should similarly be no difficulty in applying these iteration 
equations to systems containing pure, insoluble condensed phases. Un- 
fortunately, a consideration of pure condensed phases does in actuality 
produce some difficulties. The following sections discuss some of the 
problems that are encountered and present, when possible, methods for 
their solution. Some of these methods have been incorporated into the 
computer program. 


Condensation 

The condition for inclusion of the condensed species in the calcu- 
lation can be easily derived if it is assumed that the equilibrium com- 
position of the system without the condensed species is known at the 
assigned conditions and that the condensed species under consideration 
has a vapor form. This has been done in reference 1, and the condition 
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is based on the fact that the condensation will occur when the partial 
pressure of a species is greater than or equal to the vapor pressure. 

From reference 1, the condition for inclusion of a condensed species in 
the calculation is 

% - pM 

where the subscripts c and g indicate condensed and gaseous phases, 
respectively. 

When the condensed species does not have a corresponding vapor form, 
the inequality (eq. (47)) is no longer applicable. The only recourse is 
to include the condensed species in the iteration. If its converged 
value is negative, then it must be removed from the calculation and the 
composition redetermined. The only species of this type in appendix B 
is aluminum oxide (A1 2 0 3 ). One of its condensed phases will almost cer- 
tainly be present in any system containing aluminum and oxygen and, 
therefore, should be assumed present at the start of the iteration. 



Phase Transitions and Triple Points 

The calculation method is based on the assumption that condensed 
phases are pure. Therefore, the possibility exists of encountering 
phase transition between solid and liquid (melting points) or between 
two stable solid phases. Such transitions constitute triple points since 
three phases of the same species coexist , one gaseous and two condensed. 
Such triple points are characterized by a definite vapor pressure and 
temperature, independent of the relative proportions of each phase. This 
is shown by the fact that the iteration equations of table I become sin- 
gular for an assigned temperature and pressure and the inclusion of two 
condensed phases of the same species. At a triple point, for a speci- 
fied system pressure, the relative amounts of the phases can be deter- 
mined only if either the enthalpy or the entropy is assigned. 

The problem of determining equilibrium conditions in the vicinity 
of a phase transition can be best discussed by consideration of an ex- 
ample. Assume that the state is specified by an assigned pressure and 
an assigned entropy per unit mass, and let the phase transition be the 
solid-liquid transition with the transition temperature T m (i.e., the 
melting temperature). An analysis for assigned enthalpy, similar to that 
to be given for assigned entropy, could also be made. However, in rocket 
performance calculations triple points occur most often at the exit 
points of a nozzle, and, therefore, only the assigned entropy problem 
will be treated in detail. Figure 1 sketches the typical dependence of 
system entropy upon temperature for a co nstant pressure. The dashed ex- 
tension of the liquid-vapor curve PgPs would be the system entropy if 
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the liquid were stable below the melting point. A simi lar statement 
holds for the extension of the solid-vapor curve At Pg all of 

the condensed phase is liquid, while at P3 all of the condensed phase 
is solid. Intermediate points correspond to v ariou s relative amounts of 
liquid and solid phases. Along the extension P^Pg the solid phase is 
present in negative amounts, while along P3P4 the amount of liquid is 
negative. 

Two situations will be considered. First let the assigned entropy- 
have the value S]_. If only the data for the liquid phase are used, the 
iteration will converge to the temperature T7 . Since this temperature 
is below the melting point, the liquid phase cannot exist; therefore, 
the data for the liquid phase must be replaced with data for the solid 
phase. This time the iteration will converge to the correct tempera- 
ture Tg. Consider next the situation where the assigned entropy has 
the value Sg where s g < Sg < s^. With only the liquid phase present, 
the converged temperature is T^. Since this temperature is lower than 
the melting point, this cannot be the correct answer. If the calculation 
is repeated, this time using the data for the solid phase, the calcula- 
tion will converge to a temperature T g . This again is not the correct 
an'swer since T s is greater than the melting point. Returning to the 
liquid phase again produces convergence to T^, and the calculation, if 
allowed to continue in this manner, would oscillate between Tj and 
T g . It is apparent (fig. l) that the correct temperature T m can only 
be obtained by a simultaneous consideration of both solid and liquid 
phases in the iteration. 

The problem of oscillatory behavior can be eliminated by specifying 
that in going from a consideration of liquid phase to consideration of a 
solid phase the intermediate situation of coexistence of solid and liquid 
must always be considered. This technique will always work. Take again 
the case where the assigned entropy is s^. After the temperature T| 
was converged to, the solid and liquid phases would be considered simul- 
taneously. This time the converged temperature would be T m , but the 
amount of liquid would be negative. Removing the liquid phase would then 
permit convergence to the correct temperature T g . For this type of a 
situation, such a "modus operand!" is uneconomical since it unnecessarily 
requires one extra solution of the equilibrium equations. A more eco- 
nomical procedure would be to require simultaneous consideration of solid 
and liquid only in the region of oscillatory behavior indicated by the 
cross hatching (fig. l). It can be seen from figure 1 that oscillatory 
behavior will occur for a given entropy if either of these conditions is 
satisfied 


T m ~ T Z < T s - 


(48a) 
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or 

T s- T m <T s- T l < 48b) 

When the Iteration converges to Tj, inequality (48a) is used to estimate 
whether T g will he greater than T m . When the iteration converges to 
T inequality (48h) is used to estimate whether T z will he less than 
T m . An approximate relation between T s and T^ can he obtained by 
using the fact that the entropy difference between t he tem perature T j 
on the PgPg curve and the temperature T g on the P 3 P 0 zero * 

The specific heats of the two equilibrium mixtures are (c p ) z at Tj 
and (cp) at T s , respectively, while the entropies at the points P 2 
and P 3 S are s z and s g , respectively. Therefore, approximately 

T T g 

S(T S ) = b(Tj) + (c p ) i m ^ - (Sj - s s ) + (c p ) s m ^ (49a) 

and, as a result , 

s(T z ) - s(T s ) = 0 = s z - (c v ) i In ^ - s s + (c p ) g In ^ (49b) 

The points P 2 and P 3 differ only in the fact that at P 2 all of the 
condensed phase is liquid, while at P 3 all of the condensed phase is 
solid. Let the molecular weight of the equilibrium mixture at T m be 
1 /^ and the combined mole fraction of solid and liquid in the equilib- 
rium mixture be If the heat of fusion per mole of condensed spe- 

cies is AHjjp then s z and s s are related by the expression 


= s s + 


% '^ H m 
^m^m 


(50) 


Substituting this expression into equation (49b) gives 




T. 


/ \ m / N 

( < -'T) ) 1 dn + ( C p) 


'P 'l 


T 7 


T, 

'P's ln T 


m 


= 0 


(51) 


At the temperature , the quantities (c p ) g , Mm.; and % would ’ be un ' 
known. If, however, the difference between T s and T z is not too 
large, then (c„) , M-., and x m can be approximated by their values at 

P g IU 
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Tj. Under these conditions , equation (51) can be solved to give 


T g = T^ exp 


x 


l 


( c ) T 
L l K V'l m 


( 52 ) 


where the subscript l indicates the quantities are to be evaluated at 
Tj. Substitution in equation (48a) gives as the condition of no oscil- 
lation 


(53) 

At a temperature T s , a similar treatment gives the condition for no 
oscillation as: 


m 




< exp 


X Z ^ 




m 


T, 


m 


T. 


> exp 






M, 


'c ) T 
' P's m 


(54) 


where the subscript s indicates quantities are evaluated at T g . 

There is one disadvantage connected with the use of either inequal- 
ity (53) or (54) in a computer program; that is, it requires the com- 
putation of AH, M, Cp, and the mole fraction of the condensed species. 
However, it is possible to use inequalities (53) and (54) to estimate 
the width of the oscillatory region about T m by using data in the vi- 
cinity of T m . Thus, for example, applying inequality (53) to data cor- 
responding to P c /P =2.5 and inequality (54) to data corresponding to 
P c /P =3.5 of table X and using 26 kilocalories as the heat of fusion 
for AlgOj give T m /T^ < 1.0363 and T m /T g > 0.964. These data imply 
that oscillation will not occur if T m - Tj > 81° K and T s - T m > 87° K. 
Using data for a few other typical systems indicated that a satisfactory 
region would be 100° K on each side of T m , and, therefore , this value was 
incorporated into the program. However, it is possible that a system 
could be encountered where this interval is insufficient to prevent os- 
cillation. For such a system the interval would have to be widened. 


With the technique just described, if a liquid phase is being con- 
sidered and the resulting temperature is below the melting point, two 
possibilities exist. If the temperature is more than 100° K below the 
melting point, the solid phase will replace the liquid phase and the 
iteration will be restarted. If the resulting temperature is less than 
100° K below the melting point, the solid will be included, the liquid 
phase retained, and the iteration restarted. After convergence with 
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both phases considered, the resulting temperature will be the melting 
point. The iteration is finished if the amounts of both phases ■ are 
positive. If, however, the liquid phase is negative, it is removed and 
the iteration is restarted. An analogous procedure is followed if the 
solid phase only is being considered and if the temperature is above the 
melting point. 


Accidental Singularities 

A peculiar type of singularity can occur in the equations for de- 
termining the equilibrium conditions in a system with condensed products. 
The conditions for its occurrence are so restrictive that it may be 
termed an accidental singularity. These conditions are: 

(1) The state of the system must be specified by an assigned tem- 
perature and pressure. 

(2) For an Z-element system (Z > l) there must be Z - 1 condensed 
species. 

(3) For Z > 2, at least l-l of the elements must appear in the 
condensed species. 

(4) For 1-2, both elements must appear in the one condensed spe- 
cies. 


These conditions are sufficient, but not necessary, to have the gaseous 
composition completely determined by the equilibrium equations for the 
condensed species and the pressure equation without recourse to the mass- 
balance relations. This can most readily be seen by examining the itera- 
tion equations (fig. l) for the two-element case. When the aforemen- 
tioned conditions are satisfied, the Z mass-balance equations serve 
only to determine the mass variable A and the moles of the Z - 1 con- 
densed species. If the gas compositions n^(j = 1, 2, . . . , m) are 
known, the mass-balance equations 


m+Z-1 

j=m+l 


m 


a ij n j 


b?A = 


- - £ 


a ij n j 


(i = 1, 2, . . ., Z) 


(55) 


are a set of linear equations for the Z variables: A and 

n.j(j = m + 1, m + 2, . . . , m + Z - l). The equations do not possess 
a nontrivial solution if the determinant of the coefficient matrix 
vanishes; that is, if 
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a l,m+l 

a l,m+2 

• * * 

a l,m+l-l 





a 2,m+l 

a 2,m+2 

• • • 

a 2,m+7-l 

b 2 

= 0 

(56) 


a 7 ,m+l 

a 7 ,m+2 

* * • 

a 7,m+Z-l 

V 



The determinant (eq. 

(56)) 

could vanish if the 

1 — 1 

1 

fO 

X 

1 — 5 

matrix of 


• ' s is of rank less than 7-1. This case is excluded from consid- 
eration. For the simple case 1 = 2 , equation (56) reduces to 


a l,m+l 

a 2,m+l 


he 


(57) 


The significance of the criterion (eq. (56)) for the existence of a 
singularity can he seen immediately if it is realized that the determi- 
nant will vanish when it is possible to find a linear comhination of 
the first 7-1 columns , which will equal the last column (in other 
words when the overall composition can he expressed in terms of the con- 
densed products alone). 

It must he emphasized that this type of problem is singular only 
if the thermodynamic state is specified by an assigned temperature and 
pressure. If the state is specified by an assigned pressure and either 
an enthalpy or entropy, then a solution can be obtained because the gas 
phase composition is no longer determined exclusively by the equilibrium 
constants for the condensed phase and the pressure equation. While the 
occurrence of such singularities is rare, they have been encountered. 

One such case is the stoichiometric lithium-oxygen system. An important 
product in 'this system is the stoichiometric liquid Li 2 0(7). This satis- 
fies (eq. (57)) and hence corresponds to a singularity. Many other exam- 
ples could be given, but this one example sufficiently illustrates the 
point. Because these singularities are so rare, a routine for recogniz- 
ing the situation and taking corrective measures was not incorporated 
into the program. 


Assigned Pressures Too Low 

In an all gaseous system, a pressure can be assigned to the system 
quite arbitrarily. However, in a system with condensed products, the 
assigned pressure can no longer be specified with complete freedom. The 
assigned pressure must be greater than the sum of the vapor pressures of 
the condensed species. The amount by which the assigned pressure must 
exceed the sum of the vapor pressures is determined by the partial pres- 
sures of other species in the gaseous phase. Should too low a pressure 
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be assigned, the iteration will not converge since this would require 
that some of the partial pressures become negative. Because the correc- 
tions are logarithmic, a negative partial pressure cannot be obtained. 
Such a situation is characterized by large and negative A In n^ for 
some gases and small A In nj for a few of the gases. The gases with 
small A In n^ are the vapors of the condensed species and those gases 
whose partial pressures can be expressed entirely in terms of equilibrium 
constants and the vapor pressures of the condensed species. The correc- 
tion A In A is also large and negative. Again, because of the rarity 
of such a problem, no corrective measures have been incorporated into 
the program. The correct answer can be obtained by repeating the calcu- 
lation with fewer condensed species present or by assigning a higher 
pressure. 


THE COMPUTER PROGRAM 

A computer program, based on the equations presented in the previous 
sections, was written for an IBM 704 computer with an 8K core, an 8K 
drum, and eight tape handlers . A detailed listing of this program is 
given in appendix C. The program has also been converted for use on 
an IBM 7090 computer with a 32K core and eight tape handlers. The 
7090 program is given in appendix D. 

The program can accommodate up to a 15-element system with 90 prod- 
ucts of reaction and a maximum of 20 iteration equations. These limits 
on the size of the system that can be accommodated are dictated pri- 
marily by the IBM 704 core capacity. For the IBM 7090, the program can 
be readily altered to handle a larger system. At present, the program 
does not handle ionized species although provision has been made in 
Subroutine SEARCH for future consideration of ionized species. 

The computer program can handle any one of five different problems. 
Each of these five calculations has been given an alphabetic code name 
with some mnemonic significance. Thus, an H,S problem is a rocket- 
performance calculation where the combustion is at an assigned enthalpy 
and pressure; this is followed by isentropic expansion, with composition 
in chemical equilibrium, to various exit pressures. The exit points are 
assigned in terms of pressure ratio P c /P. A maximum of 25 pressure 
ratios may be specified including combustion pressure ratio P c /P = 1 
and throat pressure ratio. Since the program supplies its own estimate 
for the throat pressure ratio, a value of zero should be read in as the 
throat pressure ratio. The T,S problem differs from the H,S problem 
only in the fact that combustion is at an assigned temperature rather 
than at an assigned enthalpy. Both the H,S and the T,S problems in- 
clude calculations for frozen composition during isentropic expansion. 

The T,P problem calculates equilibrium compositions for an assigned 
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temperature and a series of up to 25 pressures. The P,T problem cal- 
culates equilibrium compositions for an assigned pressure and a series 
of temperatures not exceeding 25 in number. The DETN problem deter- 
mines Chapman- Jouguet detonation properties for an assigned temperature 
and pressure preceding the detonation wave. 

If, for some reason, it is desired to terminate the problem before 
the entire schedule of points has been completed, this can be done ■with 
sense switch 6. When sense switch 6 is in the down position, the problem 
will be continued for only one additional iteration for chemical composi- 
tion. Intermediate output for this iteration will be written as well as 
the data for all completed points. 

Because of the limited amount of core storage that was available on 
the IBM 704 computer, it was necessary to segment the problem into five 
core-loads, each with its own main program and subroutines. The five 
segments, or core-loads, are assumed to be available as five consecutive 
records comprising the first file on tape unit two. At the Lewis Re- 
search Center a computer monitoring system loads the core-loads onto 
tape two. These core-loads are then brought into core storage from tape 
two in any arbitrary sequence by the call statement CALL PONG (l) where 
I - 1, 2, . . ., 5. A program for loading the core-loads onto tape two 
will not be supplied since most computing centers will already have some 
system for doing this operation. The subroutine for calling core-loads 
also will not be supplied, and its function must be performed by an 
analogous subroutine available at the respective computing centers. The 
coding for the IBM 704 program is partially in FORTRAN II and partially 
in the pseudo-SAP of FORTRAN III. 

The 7090 version of the program is essentially identical to the 
704 version, except that because of the much larger core storage it was 
unnecessary to segment the program. In the program for the 7090, the 
main program for core-load one is the main program for the entire com- 
puter program while the main programs for core-loads two, three, four, 
and five are subroutines. The elimination of program segmenting has the 
dual effect of (l) appreciably decreasing the computation time because 
of the elimination of a great deal of tape handling, and (2) somewhat 
simplifying the program. During the course of program conversion, all 
FORTRAN III pseudo-SAP coding was eliminated to obtain a program written 
exclusively in FORTRAN II. This was made possible because of the avail- 
ability (at the Lewis Research Center) of four functions to perform 
shifting operations. These functions ALSF(N,X), ARSF(N,X), LLSF(N,X), 
and LRSF(N,X) are compiled into the object program as open subroutines 
and replace the machine language instructions ALS, ARS, LLS, and LRS, re- 
spectively. The first argument N specifies the number of places that 
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the second argument X is to he shifted. The subroutines are compiled 
as : 

CAL N 
ARS 18 
STA *+2 
CAL X 

(Appropriate shift instruction) 

Either STO for non-Boolean statements 


or SLW for Boolean statements 


For non-Boolean statements N can be either a fixed-point -variable or 
a fixed point constant, while X can be either a fixed- or floating- 
point unsubscripted variable or constant. For Boolean statements N 
must be either a fixed-point variable or a Boolean constant whose last 
six octal digits must be zeros (e.g. , 6000000), while X must be a 
floating-point unsubscripted variable or constant. 


The description of the program in the following sections and in the 
flow charts (figs. 2 to 9) will be confined to the IBM 704 version be- 
cause the two programs are virtually identical. Since 80 card columns 
of input are used, input to both programs must be by means of an IBM 
1401 or other card-to-tape equipment that will put all 80 card columns 
on tape. Under certain circumstances, the input may be through a card 
reader; this will be discussed further in the section PROGRAM INPUT DATA. 


The source program decks for either the IBM 704 or IBM 7090 will be 
made available to computing centers if a written request is addressed to 
the authors at the Lewis Research Center. The thermodynamic data of ap- 
pendix B will be furnished for program checkout purposes if a written 
request is made. The data will be supplied in the form of 23 word rec- 
ords (see fig. 6) copied onto a tape furnished by the computing center 
making the request. Because of continuous reevaluation of thermodynamic 
data, the data in appendix B will differ somewhat from the data in cur- 
rent use by the thermodynamics section for performance calculations. 
Current data will be furnished, upon request, in the same form as the 
data used for program checkout purposes. 

/J 1 

V 
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Core -Load One 

Core-load one consists of MAIN PROGRAM ONE (fig. 2) and the three 
Subroutines INPUT , SEARCH , (fig. 6) and BYPASS (fig. 7). The principal 
function of this core-load is to process input information. This por- 
tion of the program (l) assembles thermodynamic data from the master 
data tape, (2) determines which species shall be used in the calcula- 
tion, (3) determines which of the five types of problems is to be 
worked, and (4) calculates the overall system composition from the 
assigned value of any one of the three quantities: O/F, $F, or til. 

Subroutine INPUT . - Subroutine INPUT processes the input information 
on the reactant cards, which contain the formulas of the fuels or oxi- 
dants, their enthalpies, and densities. Prom this information the sub- 

routine calculates the gram-atoms of each element per gram of effective 
fuel, the gram-atoms of each element per gram of effective oxidant, and 
the corresponding enthalpies (see eqs. (2l) and (23)). In addition to 
the various gram-atoms and enthalpies per gram, the positive and negative 
oxidation states per gram are also calculated (see eqs. (26) to (29)). 

The densities of the effective fuel and oxidant are calculated by 
Subroutine INPUT except in the case of a detonation problem. For deto- 
nation problems, the specific heats of the reactants must be read into 
the computer in place of the densities. These are used to calculate 

(c ) , which in turn is used in the evaluation of detonation derivatives 

with respect to T^_ (see table Vi). 

In order for Subroutine INPUT to perform the aforementioned calcu- 
lations, a table of symbols, atomic weights, and oxidation states for 
the chemical elements is needed. This table is read into storage by 
calling the Subroutine BCKEAD(A,B), which reads a set of absolute binary 
cards into ATOM(l,j). The element symbols are in ATOM(l,l), the atomic 
weights are in AT0M(l,2), and the oxidation states are in AT0M(l,3). 

Since the index I can range from 1 to 103, there is space for 103 dif- 
ferent chemical elements. The symbols for the chemical elements must be 
in binary coded decimal and left-adjusted (e.g., AL0000, HbOOOO), while 
the atomic weights and oxidation states must be floating point- numbers. 
The oxidation states are those which correspond to the most common oxi- 
dation states of the elements (e.g., aluminum, +3.0; sulfur, +4.0; 
chlorine, -1.0). Subroutine BCREAD is a part of the computer system at 
the Lewis Research Center and is not given in this report. Any subrou- 
tine or sequence of statements that will read the element data into 
AT0M(I,J) can be substituted for subroutine BCREAD. The element data 
in AT0M(I,J) are considered constants of the program rather than input 
data (see section PROGRAM INPUT DATA), inasmuch as they are constant for 
all problems. 
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Subroutine SEARCH . - Subroutine SEARCH selects the thermodynamic 
data to be used in the problem. A scan is made of the master thermody- 
namic data tapej those species that are consistent with the chemical 
system under consideration are selected. These are written as a separate 
file on the master data tape. As the thermodynamic data are being se- 
lected, the subroutine also compiles a set of formula numbers a^ from 
the formulas of the reaction products. 

Subroutine BYPASS . - Subroutine BYPASS interrogates or alters any 
one of 90 bit positions in one of the three words PROD(l), PR0D(2), or 
PROD ( 3 ) . Each bit position is associated with a particular reaction 
product. A reaction product is considered in the calculation only if 
its corresponding bit position is zero. The first argument (j) of the 
subroutine specifies a particular bit position, while the second (IARG) 
determines the function to be performed by the subroutine. If IARG =1, 
BYPASS interrogates bit position J, setting IPROD to 2 if the bit is 0 
or setting IPROD to 1 if it is nonzero. When IARG = 2, BYPASS changes 
the appropriate bit from a 0 to a 1, while for IARG = 3 BYPASS changes 
a 1 to 0. 


Core -Load Two 

MAIN PROGRAM TWO (fig. 3) and the Subroutines BYPASS (fig. 7), 
MATRIX (fig. 8), and GAUSS (fig. 9) comprise core-load two. All computa- 
tions of the equilibrium compositions of complex mixtures are performed 
in this core-load. In addition, for H,S and T,S problems, this core- 
load also calculates equilibrium rocket performance parameters. 

Subroutine BYPASS . - Subroutine BYPASS is described under core-load 

one. 


Subroutine MATRIX . - Subroutine MATRIX'S sole function is the con- 
struction of the iteration equations (see table I) appropriate to the 
current problem. 

Subroutine GAUSS . - Subroutine GAUSS is used to solve the set of 
s im ult an eous, linear iteration equations constructed by Subroutine 
MATRIX. The solution is effected by performing a Gauss reduction using 
a modified pivot technique. In this modified pivot technique only rows 
are interchanged. The row to be used for the elimination of a variable 
is selected on the basis that the largest of its elements, after division 
by the leading element, must be smaller than the largest element of the 
other rows after division by their leading elements. 

An iterative feature has been incorporated into Subroutine GAUSS. 

A correction to the solution is obtained by replacing the right-hand 
side of the equation by the residuals, that is, by the difference between 
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the right-hand side and the value of the right-hand side as calculated 
from the solution. This set of equations is now re-solved for correc- 
tions to the previous solution. Iteration is continued until no further 
improvement in the solution is possible or for a maximum of four itera- 
tions. The criterion for improvement of a solution is the decrease of 
a test function defined to be the sum of the magnitudes of the fractional 
residuals for those equations whose right-hand sides are greater than 1 
in magnitude plus the sum of the magnitudes of the residuals of the re- 
maining equations. 


Core-Load Three 

The evaluation of rocket performance parameters for isentropic ex- 
pansion with composition frozen at the equilibrium composition in the 
combustion chamber is done in MAIN PROGRAM THREE (fig. 4) . There are 
no subroutines for this core load. 


Core-Load Four 

Core-load four does the calculations required to obtain Chapman- 
Jouguet detonation properties and prints the results in a suitable 
form. A flow chart for MAIN PROGRAM FOUR is given in figure 5. Flow 
charts for the Subroutines OUT, COMP, ONCE, and SPEC are not given 
since these only print the answers in a convenient form. 


Core-Load Five 

The last core-load is an output program; that is, it merely takes 
the results of calculations for H,S; T,S; T,P; and P,T problems and 
prints them in a convenient form. No flow chart is given for this pro- 
gram. 


PROGRAM INPUT DATA 

A number of options are available in the program. These options 
include the following: 

(1) Selection of any of five types of problems 

(2) Omission of any gaseous reaction product 

(3) Initial consideration of any condensed reaction product 

Because of these options, the input to the program, although simple and 
straightforward, is larger than it need be for a less flexible program. 



29 


In addition to blank cards , five types of input cards are needed to 
supply all of the required information to the program (see discussion 
of element data in section Subroutine INPUT). These five types of cards 
are given in the appropriate order in table VIII. Blank cards are used 
after each input card type whose number is variable. Upon encountering 
a blank card the program will terminate the reading of one card type and 
will begin reading the next card type in the input sequence. A descrip- 
tion of the nonblank cards is given below. 


Reactant Cards 

Table IX gives three sets of reactant cards. The first set corre- 
sponds to a typical solid propellant , the second is typical of the set 
of reactants for a liquid or gaseous propellant, and the third is a 
typical set for a detonation calculation. In particular, these three 
sets of reactant cards are those used in the calculations of tables X 
to XV. 

The format selected for these cards was based on ease of specifying 
the reactants for either gaseous, liquid, or solid propellants. For 
liquid or gaseous propellants the reactants are generally categorized as 
fuels or oxidants. An F keypunched into column 72 indicates that the 
substance is a fuel, while an 0 signifies an oxidant. When more than 
one fuel is used, the program combines the fuels into an effective fuel 
if the relative weight of each fuel is given in columns 46 to 53 (a dec- 
imal point must be given). If only one fuel is used, then any number 
(with a decimal point) may be placed into columns 46 to 53. A similar 
description covers the case where the propellant contains one or more 
oxidants. 

For solid propellants, the reactants are usually not labeled as 
either fuels or oxidants. The composition of the solid propellant is 
normally given in terms of the relative weights of each ingredient. 
However, for input purposes each ingredient of a solid propellant is 
designated as a fuel (i.e., F in column 72). Since all ingredients are 
considered as components of a fuel, 100-percent fuel must be specified 
on the mixture card (see below). 

The chemical formula for the reactant appears in columns 1 to 45 
and may contain up to five different chemical elements per reactant. 

Each chemical symbol is allowed two columns (left-adjusted for a one- 
symbol element). Each formula number is allowed up to six figures plus 
a decimal point. The decimal point is required even for integers. 

The state of the reactants (S, L, or G in column 63) and their tem- 
perature (columns 64 to 71 ) are for information purposes only. They may 
be omitted if desired since this information is not required by the pro- 
gram. The enthalpies of the reactants are given in columns 54 to 62, 
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•which supply enough space for eight digits and a decimal point if the 
number is positive or seven digits, a sign, and a decimal point if the 
number is negative. The enthalpy values must be consistent with the 
enthalpy base selected for the thermodynamic data (see the discussion 
in the section Thermodynamic Data). These enthalpies are used in equa- 
tion (23) to calculate h x and h f , which are then used in equation (24) 
to calculate assigned enthalpies for H,S problems. For the H,Sj T,Sj 
T,Pj and P,T type problems, columns 73 to 80 are reserved for the densi- 
ties of the reactants. Space has been provided for seven digits and a 
decimal point. If the densities of all reactants are given, the density 
of the propellant mixture will be calculated; otherwise the propellant 
density is printed as zero in the output. For a DETN type problem, col- 
umns 73 to 80 must contain the heat capacity at constant pressure for 
the reactant. 

If an on-line card reader is used to read the input data instead of 
an IBM 1401, the contents of columns 73 to 80 will not be read. For the 
H,S; T,Sj P,T; and T,P problems, all calculations will be unaffected 
(and a value of zero will be printed on the output format for the density 
of the unreacted mixture). For the DETN problem, all answers will be 
correct except for detonation derivatives with respect to T^ and the 
following functions of the unreacted mixture: isentropic exponent, sonic 

velocity, and Mach number of the detonation wave. 


Quit-Insert Cards 

Subroutine SEARCH, previously described, selects from the master 
thermodynamic tape all species that are consistent with a given chemical 
system. In the absence of prior information the program makes the ini- 
tial assumption that all the selected gaseous species may exist in appre- 
ciable concentrations and that condensed species will not be present, at 
least for the equilibrium conditions corresponding to the first point. 
When the iteration converges, the latter assumption is checked and, if 
necessary, corrected automatically. 

Quit -Insert cards serve two different purposes depending on whether 
the formula for a gaseous or condensed species appears on the card. If 
the formula for a gaseous species is on the card, that species will not 
be considered by the program for all assigned conditions. This permits 
the omission of any gaseous species from the calculation without the 
necessity of remaking the master thermodynamic data tape. The omission 
of one or more gaseous species may be desired in order to determine the 
resulting effect on composition or other properties of the system. The 
omission of gaseous species may sometimes also be desired in order to 
reduce calculating time. (This assumes some "a priori" knowledge of 
which species may be omitted without affecting the results to the de- 
sired number of significant figures. ) If the formula for a condensed 
species is on the Quit-Insert card, the program will initially consider 
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this species to he present at the assigned conditions corresponding to 
the first point. After convergence, this assumption is checked automat- 
ically and corrected if necessary. In contrast to gaseous species, a 
condensed species can he omitted from consideration hy the program only 
hy removing it from the master thermodynamic tape. 

The names of up to four species can appear on each Qmit-Insert card 
in columns 1 to 12, 16 to 27, 31 to 42, and 46 to 57. The names must he 
keypunched exactly as they appear on the master thermodynamic tape (ap- 
pendix B) . 


Problem Cards 

These cards are used to specify which one of the five problems is 
to he worked (H,S.; T,S; P,T; T,P; or DETN) and also to assign an identi- 
fying case number to the problem. Columns 1 to 4 contain the alphabetic 
designation for the problem beginning in column 1. The assigned case 
number is a set of five digits keypunched into columns 6 to 10. This 
case number appears on the output listing. 


Schedule Cards 

Every type of problem except DETN requires a schedule of points to 
be calculated. For the DETN problem the schedule cards and the blank 
card that follows them must be omitted while the other input cards re- 
main as before. The schedule for the other four problems must not ex- 
ceed 25 points. For the H,S and T,S problems the schedule of points is 
a series of pressure ratios P /P. The first pressure ratio (combustion 
chamber) must be unity; the second, corresponding to throat, is left 
blank; and all others are optional. For the T,P problem, the schedule 
is a series of 25 or less assigned pressures in atmospheres. For the 
P,T problem the schedule is a series of 25 or less assigned temperatures 
in °K. 


Each schedule card contains as many as five assigned values in col- 
umns 1 to 10, 11 to 20, 21 to 30, 31 to 40, and 41 to 50. Thus there is 
enough space for nine digits and the required decimal point for each as- 
signed value. 


Mixture Cards 

The mixture card is used to specify the relative amounts of the ef- 
fective fuel and oxidant and to provide either initial estimates or as- 
signed values for pressure and temperature. In addition, the mixture 
card permits two options. The first option permits intermediate output 
to be printed for each composition iteration if an integer is keypunched 
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in column 72. The intermediate output is described in the section 
INTERMEDIATE OUTPUT. The second option may be used only in the DETN 
problem. If the code columns (i.e., columns 51 to 55) are left blank, 
the sonic velocity of the burned gas Is calculated by use of p; if they 
are nonblank (any integer with no decimal point), then the sonic veloc- 
ity is calculated from K , the ratio of equilibrium specific heats . 

The relative amount of fuel and oxidant is specified by any one of 
the three quantities ft, O/F, or tfoF; the card columns corresponding to 
the remaining two are left blank. Columns 1 to 10, 11 to 20, and 21 to 
30 are for ft, 0/F, tfoF, respectively. In each case, there is sufficient 
space for nine digits plus a required decimal point. Columns 31 to 40 
and 41 to 50 provide space for a pressure and temperature, respectively. 
The purpose of the pressure and temperature differs from problem to 
problem. For the H,S problem the pressure in pounds per square inch ab- 
solute is the assigned combustion pressure, while the temperature in °K 
is the estimate for combustion temperature. For this problem the tem- 
perature is optional. If the temperature is left blank, the program 
automatically uses a temperature estimate approximately equal to 3800° K. 
For a T,S problem, the pressure in pounds per square inch absolute is the 
combustion pressure and the temperature in °K is taken to be the combus- 
tion temperature. For the T,P problem the pressure is ignored by the 
program, while the temperature in °K is the assigned temperature for the 
series of pressures read in on the schedule card. For the P,T problem 
the pressure in atmospheres is the assigned pressure for the series of 
temperatures read in on the schedule card, while the temperature on the 
mixture card is ignored. In the DETN problem, the pressure in atmos- 
pheres and the temperature in °K correspond to the pressure and tempera- 
ture preceding the detonation wave. 


PROGRAM OUTPUT 

Tables X to XIII are examples of the final output for three types 
of problems. Tables X and XI are the output of an H,S problem for a 
solid propellant. Table XII is the output of a P,T problem for stoichio- 
metric hydrogen-air. Table XIII is the output of a Chapman- Jouguet de- 
tonation calculation (DETN) for stoichiometric hydrogen-oxygen. 

The three tables are almost completely self-explanatory; however, 
the symbols for some quantities are somewhat different than those used 
in the text. The reason for this is that the IBM printer does not con- 
tain characters such as lower-case letters, Greek letters, subscripts, 
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or superscripts. The following examples illustrate the differences: 
(DLl/DLPC)PC/P = (d In l/c> In P C )P C /P, h c 

(DLCS/DHC)PC/P = (5 In c*/c>h c )P c /P, P c 
(DLAR/DLPCP)S = (a In e/a In P c /P) s 

During the calculation of the data of table X, the program consid- 
ered the possible occurrence of 11 condensed species (counting solid and 
liquid phases of the same species separately). Of these 11 only four 
appeared in nonzero amounts, namely, MgO(s), MgClg(s), AlgC^s), and 
AlgOg(z). Of these four species, only AlgOg(Z) was keypunched into an 
Qmit-Insert card for initial consideration by the program; the other 
three species were put into the calculation, at the appropriate time, 
by the program. Furthermore, MgO(s) and AlgO^Z) were removed from the 
calculation based on decisions made by the program. Points four, five, 
and six of table X illustrate the typical behavior when two condensed 
forms of the same species coexist. In this example, the coexisting spe- 
cies are AlgOg(Z) and AlgOg(s) and the temperature for these points is 
the melting point of AlgOj^s). For these same three points, the molec- 
ular weight derivatives appear as zero. The reason for this is that the 
equations of tables II and III are singular for the coexistence of two 
forms of the same condensed species. This prevents the calculation of 
the molecular weight derivatives and the heat capacity at constant pres^ 
sure. However, for the purpose of calculating a velocity of sound it 
was felt desirable to calculate a frozen heat capacity at constant pres- 
sure, which could then be used to calculate a frozen isentropic exponent. 
As a final point, it should be noted that the program lists separately 
those species that were considered in the calculation but which were 
only present in trace amounts and those species that were intentionally 
omitted from the calculation because their formulas were keypunched on 
Qmit-Insert cards. 

In table XI only four points are listed although the same points 
that were calculated in the equilibrium calculation of table X were 
specified in the frozen calculations. The reason for this is that in 
the frozen program the calculation is terminated when a sufficiently 
low temperature is reached so that a species, present at combustion, no 
longer has thermodynamic data at this temperature. In table XI the spe- 
cies AlgOg^) has data only to the melting temperature 2317° K. Since 
the program permits extrapolations for 20° beyond the end point , the 
program considers that data for Al 2 C> 3 (z) exist to 2297° K. The pres- 
ence of the last point at a temperature of 2270° K can be accounted for 
because the program permits completion of the calculation for the first 
point past the 20° extrapolation limit. 
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The program can list the reactant input data in one of two format 
types. The first of these is used when at least one of the reactants 
has a noninteger formula number. This type is illustrated in tables X, 
XI, and XII. The second format is reserved for those systems where all 
formula numbers are integers. This is illustrated in table XIII. 

The preliminary output (table XIV) is written primarily to provide 
information as to what problem the program is working in the event no 
final output is obtained. The last line of table XIV is printed during 
frozen expansion in the event that the exit temperature is below the 
temperature range of a species (see discussion of table XI). 


IUTEBMEDIATE OUTPUT 

Many safety features have been incorporated into the program that 
will prevent the calculation from becoming divergent. However, it was 
not possible to include corrective measures for two situations. The 
first is the problem of poorly conditioned iteration equations whose 
solution results in excessive fractional residuals (>0.5xl0 -4: ) . The 
second is the problem of singular iteration equations. In these two 
situations the program returns to the first iteration for the initial 
point and begins iterating, this time printing intermediate output to 
assist in debugging. Table XV is the debug output from the solid pro- 
pellant calculations shown in tables X and XI. This output was obtained 
by the method described in the section Mixture Cards, rather than result- 
ing from either of the two situations just discussed. 

All of the legends that appear on the right-hand side of table XV(a) 
are not written by the program. Similarly the headings in table XV(b) 
have also been typed. In table XV(a) the first line gives the case num- 
ber assigned to the problem and the type of problem; the second line 
gives O/F, foF, a, and P 0 ; the third and fourth lines give the enthalpy 
per gram of propellant hQ and the gram-atoms of the elements per gram 
of propellant b?, which for this problem are b §> b H> b 8l> b 8' b C' b S> 
b^, and b°^. The next 22 lines are the iteration equations correspond- 
ing to table I. For some problems each iteration equation requires only 
one line. However, for this example, each equation of table I requires 
two lines. The first 16 of these 22 lines correspond to eight reduced 
mass-balance equations for the eight elements in this problem which have 
been taken in the following order: nitrogen (N), hydrogen (H), chlorine 

(Cl), oxygen (0), carbon (C), sulfur (S), aluminum (Al), and magnesium 
(Mg). The next two lines are for AlgOjO) . The last four lines are for 
the pressure and enthalpy equations. For this problem, the coefficients 
of A In u^., An^i^o^ ( 7 ) •* “A In A, A In T, and the right-hand side of 

each equation are given by the eight columns of line one and the first 
four columns of line two for each pair of lines. The fifth column of 
line two gives the fractional residuals for that equation (see discus- 
sion of fractional residuals in the section on Subroutine GAUSS). 
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In table XV (a) following the set of iteration equations are two 
lines which give the solution to the preceding set of iteration equa- 
tions. The next line gives the current value of T, P, A, and A. The 
remaining 81 lines give the formulas, n^ -In n^, A In n.j_ (or An-j_ for 
condensed species), and for each of the 81 species. The word 

OMIT preceding the formula for a species indicates that this product is 
not considered as a product of reaction for this problem. It may be 
noted that the initial estimate is 1 atmosphere for each gaseous species 
and zero moles for each condensed species. A zero in the An^ column 
for a condensed reaction product indicates that this species is not being 
considered during the iteration. It should also be noted that the cor- 
rection to AL 2 03 (Z) is negative, and, therefore, AlgC^Z) will be present 
in negative amount during the second iteration although when the itera- 
tion converges it will be positive. This indicates the inadvisability 
of checking the condensed species at each stage of the iteration. A 
final point to note is that A for this iteration was determined by the 
species CO(g). 

The previous sequence of lines is printed for each iteration. When 
the iteration converges, the answers are printed as shown in table XV(b). 
This set of answers corresponds to the throat pressure ratio 
P c /P = 1. 777 of the data of table VIII. 


Lewis Research Center 

National Aeronautics and Space Administration 
Cleveland, Ohio, June 26, 1962 
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APPENDIX A 


A 

A/w 

(A/w) t 




• SYMBOLS 

total mass reactant 

nozzle area per unit mass -flow rate 

area per unit mass -flow rate at nozzle throat 

formula numbers giving gram-atoms of i un element in 
j’k-* 1 species 


f 

ij’ a ij 


a l> a 2^ ’ 
b„. 


, a 7 


formula numbers of oxidants and fuels giving gram- 
atoms of element in j’kk oxidant and fuel, re- 
spectively 

constants in empirical equations for thermodynamic 
data 

gram-atoms of i^ element per unit mass of mixture, 
1 n 

A Yj ai j n j 


Ab.,- 


b? - b ± 


bV 

i 




F 

(c° } . 


assigned value for gram-atoms of i^ element per 
unit mass of reactant 

gram-atoms of element per gram of effective 
oxidant or effective fuel 

thrust coefficient 

heat capacity of species at constant pressure 
per mole. 


’d(H§) t1 ' 


— T 1 

S(s§).-] 

dT 

P 

= 1 

— i 

Eh 

1 


heat capacity per mole at constant pressure for j 

«$> 3 

species divided by gas constant, — 1 - 


th 
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Cp heat capacity of reaction products at constant pressure 

per unit mass 

(Cp)^ frozen heat capacity of the unreacted mixture at constant 

pressure per unit mass evaluated at T-j_ 

(cp)^_,(cp) s heat capacity of reaction products at constant pressure 
per unit mass evaluated at and T g , respectively 


c 


v 


c* 



p 



Sc 

(H°) 

1 3 




h 


c 


heat capacity of reaction products at constant volume per 
unit mass 

characteristic velocity 

standard-state free energy per mole of species, 

(H§). - T(S§). 

3 3 


•weight or mass percent fuel 

free energy per mole of j’*'* 1 species divided "by RT, 

(F§) 

J + In nj (j = 1, 2, . . . , m) and 

(F°) 

■■pm ■ " (j = m + 1 , m + 2, . . . , n) 


gravitational conversion factor, 

32.174 (lb mass/lb force) (ft/sec 2 ) 

heat of fusion per mole of condensed species 

enthalpy per mole of j’k* 1 species 

enthalpy per mole of species divided by RT, 


RT 


enthalpy of reaction products per unit mass of reactant, 


n 



combustion enthalpy of reaction products per unit mass of 
reactant 
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h* 

A 


aA 

A 0 

I 

■*-vac 

l 

M 

M c 

M± ,4 

Vs 

Mi 


m 

n 

n j 

o/f 

p 

AP 


assigned enthalpy per unit mass of reactant 

enthalpy per unit mass of reactant before detonation wave 

yRT 

throat iteration parameter, h + 

enthalpy of reaction products per unit mass of reactant 
divided by RT, h/RT 

A 0 _ A 

assigned enthalpy per unit mass of reactant divided by 
RT, h 0 /RT 

specific impulse with ambient and exit pressures equal, 

(lb force) (sec) /lb mass 

specific impulse into vacuum (ambient pressure equal to zero), 
(lb force) (sec) /lb mass 

number of different chemical elements 

molecular weight, A/P 

combustion-chamber molecular weight 

formula weights of i"* 3 * 1 oxidant and i* 3 * 1 fuel 

molecular weight at T^, T m , and T g , respectively 
molecular weight of gas before detonation wave 
Mach number, U/U s 

number of gaseous reaction products 
total number of reaction products 
moles of species 

oxidant-to-fuel weight or mass ratio 
static pressure, atm 
P 0 - P 

combustion pressure, atm 
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Pq assigned static pressure, atm 

P-]_ pressure before detonation wave, atm 

Pi partial pressure of species, atm 

J 

R universal gas constant, 1.98726 cal/(mole) (°K) 

£ equivalence ratio, -[V* + (0/F)V + ]/[V“ + (0/F)V“] 

I XI X 

r density ratio across a shock, p/p]_ 

m 

r ik = r ki = £ a ij a kj n < j 
j=l 


(Stp) • 

3 

Jf 

J° 

^ f 


entropy per mole of species in standard state 

p m 

x i ln + ^ J ^ x i 
i=l 



entropy per mole of species divided by R, 

(sg) 

— —■ - In n^ ( j = 1, 2, . . . , m) and 

(Sg). 

— (j = m + 1, m + 2, . . ., n) 



s entropy per unit mass of reactant 

s c combustion entropy per unit mass of reactant 

s^,s s entropy per unit mass of reactant at and T g , 


respectively 



40 


Sq assigned entropy per unit mass of reactant (taken to be equal 

to s c ) 

4 entropy per unit mass of reactant divided by R, 

nE 

j=i 

Ad • -4q - -4 

assigned entropy per unit mass of reactant divided by R, 

s 0 /K 

T absolute temperature 

T c combustion chamber temperature 

T^TjjpTg equilibrium temperature for assigned entropy and pressure 

where condensed species is all liquid, mixture of liquid 
and solid, or all solid, respectively 

T-]_ absolute temperature before detonation wave 


U flow velocity 

Up detonation velocity 

U s sound velocity, ^(ciP/c)p) s 

.A In u^. k^ component of solution vector of iteration equations in 
table 1 where k = 1, 2, .. ., I 

V + ,V7 positive and negative oxidation states of an element in its 

1 commonly occurring compounds 

weight of i 1 " 11 oxidant or i’ th fuel 

w mass -flow rate, lb mass/sec 

X. mole fraction of j species in mixture 

J 

x z ,x ai ,x s mole fraction of condensed species at , T m , and T g , 
respectively 


“k 


(% M_ 

Wk% 
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X isentropic exponent, (c> In p/S In p) s 

y isentropic exponent in combustion chamber 

e area ratio 

K c p /c T 

A any parameter 

A empirical parameter (0 < A < l) used to control size of correc- 

tions during iteration, defined in eq_. (42) 

A-, ,Ao convergence parameters defined in eqs. (40) and (4l), respec- 
tively 

p density 
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THERMODYNAMIC DATA 


Formula 

Temperature range for 
which data exl a ta 


FlrBt tempera- 
ture interval 

a l a 2 

a 3 

a 4 

a 5 

a 6 

a? 

Second temper- 
ature Interval 

a l a 2 

a 3 

a 4 

a 5 

a 6 

a 7 


AU(O) 

1000. 5000. 

soo. 1000. 


300.00 

2.5378209b 00 
2.835236«Sb oo 


5000.00 

-6.0990708E-05 

-1.51340126-03 


3.9335790fc-O8 

2.71837446-06 


-1.1559831E-11 

-2.20602856-09 


1.29202626-15 

6.71717016-13 


3.82098206 09 
3.81601296 09 


5.35009156 00 
3-97239016 00 


AL I ( L ) 

1000. 5000. 

300. 1000. 


932.00 5000.00 

3.52293796 00 -0. 

3.52293796 00 -0. 


1 . 66560996 02 
1.66560996 02 


-1.55089536 01 
-1.55089536 01 


ALMS) 

LOGO. 500Q. 
300. 1000. 

AL2(G ) 

10Q0. 5000. 

300'. 1000. 


300.00 

0. 

2.3899182b 00 

300.00 

9.36719306 00 
3.69009926 00 


932.00 

0. 

2.22905336-03 

5000.00 

3.05323996-09 

3.80820876-03 


0. 

-1.93776976-06 


-1.31590706-07 

-6.53923096-06 


0. 

2.19101906-09 


3.3852618fc-ll 

5.25330206-09 


0. 

-6.96709726-13 


-2. 5891547E-15 
-1.5953154E-12 


0. 

-7.97997656 02 


5.75155896 09 
5.76390526 04 


0. 

-1.07979546 01 


1.91817776 00 
5.29717376 00 


ALltblMi) 
1000. 5000. 

300* 1000. 


300.00 

4.-34351936 00 
3*15096696 00 


5000.00 
2.46289256-04 
5 . 698338 Lb-03 


-8.07809776-08 

-9.76327806-06 


1.25876116-11 
7 • 8095008b- 09 


-1.74781406-16 
-2. 374288 4E- 12 


-7.02653986 03 
-6.80701856 03 


2-50804076 00 
8.12945776 00 


AI.lCl.3tC) 
1000. 5000. 

500. 1000. 

AUf 1(6) 

1000- 5000. 

300. 1000. 

AL 16 3 (6) 

1000. 5000. 

>00. 1000. 

Ablb J(S) 

1000. 5000. 

500. 1000. 


300.00 

9.42056586 00 
5.0572488b 00 

300.00 

4.1250002b 00 
2 .-6936710b 00 

300.00 

8.56820686 00 
2.3231444b 00 

300.00 

0. 

- 1 . 165 L746L 00 


5000.00 

6.59404J4b-04 

1.992)2638-02 

5000.00 

4.71529J0fc-04 

5.7333440E-03 

5000.00 

l.6264060t-03 

2.609134it-02 

727.00 

0. 

6.38619946-02 


-2.90588696-07 

-3.35377356-05 


-1.88746596-07 

-7.68497356-06 


-7.19151136-07 

-3.83758226-05 


0. 

-1.39538326-04 


5.6462274E-11 

2.61977556-08 


3.69372156-11 

4.90381106-09 


1.40502506-10 

2.66546466-08 


0- 

1.52229396-07 


-4.03369166-15 
-7. 8027250b- 12 


-2.65950776-15 

-1.20379236-12 


-1.00991856-14 

-7.28744776-12 


0. 

-6.2728634E-1 1 


-7.28767256 04 
-7.20405406 04 


-3.21683376 04 
-3.18456656 04 


-1.46217566 05 
-1.44875816 05 


0. 

-1.80821556 05 


-1.63464446 01 
4.3859034b 00 


2.05649136 00 
9-10805426 00 


-1.70133116 01 
1.34040736 01 


0. 

5.70751146-01 


ALIF3IS) 

1000. 5000. 

JOO. 1000. 


72 7.00 

1.0532089b 01 
l«Q532QU‘Jb 01 


1551.70 

1.5096162L-03 

L.5096L62L-03 


-1 . 82561626 05 
-1.82581626 05 


-5. 2826 1176 01 
-5.28261176 01 


AL1H1 (0) 

1000. 5000. 

JOO. 1000. 

AUul(G) 

LUOO. 5000. 
300. 1000. 


300.00 

3.3055232b 00 
3. 7716542b 00 

300.00 

3.9517542b 00 
2.8420507b 00 


5000.00 

1.34588026-03 

-2.76749676-03 

5000.00 
6 .7161^596-04 
3. 76861036-03 


-5.35354276-07 

8.79901336-06 


-2.82639386-07 

-3.02756526-06 


1.01427346-10 

-8*18656996-09 


5.50490536-11 

5*95862246-10 


-7.12979716-15 

2.59374706-12 


-3.68187886-15 
2. 12928726-13 


2.9881497b 04 
2.99124236 04 


7.17497636 03 
7.47252296 03 


3.25427066 00 
1. 5929917E 00 


3.35864926 QO 
9.06499646 00 


AL201 (G) 

1000. 5000. 

300. 1000. 


500.00 

5.7717507b 00 
2. 5425147b 00 


5000.00 
1 . 3771583b— 03 
1.18561176-02 


-6.03072336-07 

-1.3J28517b-05 


1.16946696-10 

6.84427716-09 


-8.35635706-15 

-1.25996836-12 


-2.1806545E 04 
-2.10064856 04 


-2.7312889E 00 
1.35297026 01 


AL2CI2 (G) 

1000. 5000. 

300. 1000. 


300.00 

8. 5025524b 00 
2.9710403b 00 


5000.00 

2.2358185b-03 

2.2334000b-U2 


-9.79268966-07 

-2.99096956-05 


1.90063506-10 

1.96750206-08 


-1.35955706-14 

-5.13479766-12 


-5.59834746 04 
-5.47045766 04 


-1.87575816 01 
8.60509636 00 


AL2U3UI 
1000. 5000. 

JOO. LOOU. 


2317*00 5000. 00 

1.7612190b 01 -0. 

• 0 . - 0 . 


-1.99255616 05 

- 0 . 


-9.60606736 01 

- 0 . 


AL2U3 ( S) 

1000,. 5000. 

300. 1000. 


300.00 

9.1785079b 00 
-4.9920865b 00 


231$. 00 
1. 14606166-02 
8.00066376-02 


-7.83558206-06 

-1.34285686-04 


2.50562066-09 

1.07116766-07 


-3. 11532526-13 
—3.28482 196-11 


-2.0496297b 05 
-2.0256090E 05 


-5-00276686 01 
1.5801944E 01 


ALIOL&TKG) 
1000. 5000. 

JOO. 1000. 


300.00 

6.7507573b 00 
2. 7871112b 00 


5000.00 

8.57872006-04 

1.73630226-02 


-3.81912796-07 

-2.74007236-05 


7. )47 7826-11 
2.'./ 3913016-08 


-5.4209S11L-15 
-5.8443 7096-12 


-4.95055406 04 
-4.86994736 04 


-9.15273856 00 
9.91906676 00 


ALlOlt-KG) 
1000. 5000. 

JOO. 1000. 


300.00 

6.39935736 00 
1.1376981b 00 


5000.00 

1.246t»650b-03 

2.23217126-02 


-6.51029296-07 

-3.37668786-05 


1.07429116-10 

2.42469556-08 


-7.70667676-15 

-6.742/5546-12 


-7.41453366 04 
-7.30361146 04 


-9.18317666 00 
1.63352286 01 


A*MO 
1000. 5000. 

300. 1000. 

81(b) 

1000. 5000. 

JOO. 1000. 

8 1 ( L I 

1000. 5000. 

500. 1000. 

81(51 

1000. 5000. 

300* 1000. 

82(C) 

1000. 5000. 

500. 1000. 

BICLMGI 
1000. 5000. 

500. 1000. 

b LCL2(G) 

1000. 5000. 

300. 1000. 

8LCL3 (GJ 
1000 . 5000 . 

JOO. 1000. 

B1F1IG) 

1000. 500U. 

300. 1000. 

81)2(0 . 
1000. 5000. 

JOO. 1000. 

8163(0 
1000* 5000. 

300. 1000. 

81FICLKG) 
looo. 5000. 
JOO. 1000. 


JOO. 00 

2.4998921b 00 
2 .48999116 00 

300.00 

2.5029722b 00 
2.5091600b 00 

2 JOO. 00 
3.6733995b 00 
- 0 . 

300.00 

6.83843676-01 

-2.67696186-01 

300.00 

3.90641896 00 
3.00600206 00 

300.00 

4.0956886b 00 
2 .69888256 00 

300.00 

6.3054380c 00 
3.5481932L 00 

500.00 

8.6203460b 00 
3.1217850b 00 

300.00 

3.55289106 00 
3.55806826 00 

300.00 

5.4047657b 00 
3.059092 16 00 

300.00 

6.9712009b 00 
2.1119086b 00 

JOO. 00 

5.9487502b 00 
3. 1915115b 00 


5000-00 

7.34404466-08 

7.49506546-09 

5000.00 

-7.27966386-06 

-5.0370772E-09 

5000.00 

- 0 . 

- 0 . 

2300.00 
3.60407846-03 
9.328UU07t-03 

5000.00 

7. 042 7690 E- 04 
2.36241246-03 

5000.00 

4.99572076-04 

5.43000946-03 

5000.00 

7.88749086-04 

1.14908216-02 

5000.00- 
1.55884656-03 
2.28490766-0 2 

5000.00 

1.06626966-03 

-1.62863736-03 

5000.00 
1.75694436-03 
fl. 145247 lt-03 

5000.00 

3.32914526-03 

1.76893996-02 

5000.00 

I.L7693096-03 

1.06202896-02 


-3.37056356-11 

-1.94022816-07 


6.72667446-09 

1.09261826-0/ 


- 0 . 

- 0 . 


-L. 84160316-06 
-1. 66836056-05 


-2.80307706-07 

1.93577546-07 


-1.96630256-07 

-6.90282056-06 


-3.49086686-07 

-1.67418096-05 


-6.86201296-07 

-3.32145106-05 


-4.42323746-07 

7.63682786-06 


-7.61341436-07 

-6.53342316-06 


-1.43985096-06 

-1.68760086-05 


-5.15435176-07 

-1.30193216-05 


1.05862626-14 
2. Ci849 7076-10 


-2.6446144C-12 

-1.05378526-10 


- 0 . 

- 0 . 


3.98549546-10 

1.7708969C-O8 


5.34759956-11 

-2.41382846-09 


3.76736706-11 

4.17595556-09 


6.83021826-11 

1.17036376-08 


1.33559316-10 

2.31624706-00 


8.47061876-11 

-8.15040416-09 


1.46662166-10 
1 .69708586-09 


2.76871346-10 
7. 1.1261126-09 


1.00022246-10 

7.6564412E-09 


-1.21918646-18 

-7.94748316-14 


3.70187276-16 
3. 74722466-14 


- 0 . 

- 0 . 


-2. 261 7850 E- 14 
-7.34342016-12 


-3.76664056-15 

1.23193486-12 


-2 . 64357986-15 
-9.68366726-13 


-4.91765066-15 

-3.19235866-12 


-9.5694464E-15 

-6.30184356-12 


-5.999952 1C-15 
2.83888606-12 


-1.04332606-14 

V.66635T6E-13 


-1.96637266-14 

-9.20216526-13 


-7.15351466-15 

-1.74580716-12 


9.39766546-02 

9.92512246-01 


6.4932567E 04 
6.49320106 04 


8.98724946 01 

- 0 . 


-1.71270296 02 
-1.78024266 01 


9.74031596 04 
9.76862326 04 


1.93025946 04 
L.9628152E 04 


-l. 1913095E 04 
-1.13139916 04 


-5.17594006 04 
-5.05619586 04 


-2.5138324E 04 
-2.50001006 04 


-6.97246936 04 
-6.90725246 04 


-1.38441616 05 
-1.37145896 05 


-4.11018056 04 
-4.04396586 04 


4.36684176 00 
4.40772586 00 


4.18284976 00 
4.15689836 00 


-2. 1 153 1706 01 

- 0 . 


-4. 1743641E 00 
1.29112526-01 


1-60826886 00 
6.44656026 00 


1.97571986 00 
8.90917476 00 


-3.53449146 00 
9.92458536 .00 


-1.52905326 01 
1.15628696 01 


3.386023SE 00 
4.03367706 00 


-2.00503516 00 
V. 01347436 01 


-1.09376456 01 
1.39335366 01 


-2.46346516 00 
1.13073066 01 



Bi)il(G) 

1000. 5000. 

300. 1000. 

bih3(g> 

1000. 5000. 

300. 1000. 

blNl(G> 

1000. 5000. 

300. 1000. 

BlNl(S) 

1000. 5000. 

300. 1000. 

8101(G) 

1000. 5000. 

300. 1000. 

BIUZ(G) 

1000. 5000. 

300. 1000. 

0202(0) 

1000. 5000. 

300. 1000. 

B2u3 ( 0 > 

1000. 5000. 

300. 1000. 

0203(0 
1000. 5000. 

.300 . 1000. 

BKilCLKG) 
1000. 5000. 

300. 1000. 

B3it3CL3(C) 
1000. 5000. 

300. 1000. 

BiUlPl(G) 
1000. 5000. 

300. 1000. 

B3U3P3(G) 
1000. 5000. 

300. 1000. 

B16UG) 

1000. 5000. 

300. 1000. 

Ubl(G) 

1000. 5000. 

300. 1000. 


300.00 

2.8550687b 00 
3.72587401: 00 

300.00 

1.9286212E 00 
4.0347166b 00 

300. 00 

3. 4469^4 lb 00 
3.6749186C 00 

300.00 

4.06154356 00 
-1. 1073212b 00 

300.00 

3.1114124b 00 
3. 8411771b 00 

300.00 

5.6595093b 00 
2.0440369t 00 

300.00 

6.7762064b 00 
2. 6671177b uO 

300.00 

6.6342182c UO 
1.8024791b 00 

300.00 

1. 6322605b 01 
3.6805218c 01 

300.00 

5.6031930b 00 
2. 5880260b 00 

300.00 

1. '3802290b U1 
-3. 3878046G-02 

300.00 

5. 0297714b 00 
2.22531 79L 00 

300.00 

1.88012366 01 
-1.40249326 00 

300.00 

3.6003577b 00 
3.2283229b 00 

300.00 

2. 3978915b 00 
2. 4945010b 00 


5000.00 
1. 6528384 fc-03 

-1.5968308C-03 

5000.00 
7. 5249258b-03 

-1 . 1420593b— 03 

5000.00 

L.1674645E-03 

-2.2994676b-03 

5000.00 

1.71800046-Q3 

1.65705146-02. 

5000. OU 
1 .46606476-03 

-2.88150726-03 

5000.00 
2.04582326-03 
1 . 3046666b-02 

5000.00 
3.92863536-03 
1. 96001736-02 


3600.00 

0. 

-2. 6489602 b-0 l 

5000.00 
2.0969014b-03 
l.4l69692b-02 

5000.00 

5.87456O46-03 

8.2746l98t-02 

5000.00 
2.57353126-03 
1. 30123 79b-02 

5000. OU 
7.01036136-03 
8.04435536-02 


5000.00 

1.22780566-03 

6.18537016-04 


-6 . 24665346-07 
3.4L72109E-06 


-2 .91508226-06 
9.21319716-06 


-4.79536496-07 

8.46893616-06 


-4.9911199E-07 

-1.99290476-05 


-6.00599836-07 

7.71704576-06 


-8.91913226-07 

-1.30551486-05 


-1.65904536-06 

-2.67662386-05 


0. 

7.89935346-04 


-8.82181916-07 

-2.13326086-05 


-2.58941556-06 

-1.20207816-04 


-1.07736756-06 

-1.70349036-05 


-3.09414696-06 

-1.07303046-04 


-6.58685596-07 

3.64494226-06 


1.12853326-10 

-1.69790886-09 


5. I922764t-10 
-6.26040536-09 


9.04316346-11 

-8.43580626-09 


7.88026586-11 
1.4457 l 1 96-08 


1.10018496-10 

-6.45992366-09 


1.7255128E-10 

5.6761323L-09 


3.14326476-10 

1.98214266-08 


5.4567159E— 10 
-2.0803348E-09 


U. 

-8. ‘17991836-07 


1.66659476-10 
l. 64462866-08 


5.04836456-10 

8.38913986-08 


2.02877896-10 

1.18601416-08 


6.04162886-10 

6.86635686-08 


1.60609926-10 

-5.25584616-09 


2.74132536-11 

1.16617836-10 


-7. 66104106-15 
1.40088896-13 


-3.48915966-14 

1.17735246-12 


-6.25106336-15 

2.81047316-12 


-5.13727886-15 

-4.63716986-12 


-7.03686296-15 

1.86306776-12 


-1.23140276-14 

-7.38030486-13 


-2.21098236-14 

-5.98246086-12 


-3.64243866-14 

2.09893926-12 


0. 

3.41526436-10 


-1.16962646-14 

-4.99852216-12 


-3.62332936-14 

-2.28398706-11 


-1.4206619E-14 

-3.36833096-12 


-4.34276526-14 
-1. 71134136-11 


-1 .25787126-14 
2.08155386-12 


-7.76833976-16 
-4.472 V455t- 14 


5.57164006 04 
5.55462766 04 


8.6871002E 03 
8.32419726 03 


7.4653488E 04 
7.47443756 04 


-3.21450486 04 
-3.05939686 04 


1.87771916 03 
1.81765666 03 


-4.4594729E 04 
-4.36560186 04 


-5.85804786 04 
-5.76207986 04 


-1.08482696 05 
-1.06978566 05 


-1.57402666 05 
-1.56040066 05 


-4.4610112L 04 
-4.39870746 04 


-2.09369836 05 
-2.05049266 05 


-7.32241086 04 
-7.2568392L 04 


-2.92279436 05 
-2.8765436E 05 


3.80318946 04 
3.82093086 04 


3.8490518b 04 
3.84548696 04 


3.98545636 00 
-2.3447266E-01 


9.56826896 00 
-4.20459956-01 


5.40125156 00 
4.95711326 00. 


-2.29490936 01 
3.96384806 00 


6.27185986 00 
3.14202796 00 


-5.21208756 00 
1.31903906 01 


-1.14576916 01 
8.81048486 00 


-8.34262976 00 
1.73651426 01 


-8.14393426 01 
-1.49281696 02 


-3.90258296 00 
1.02072626 01 


-7.39631206 01 
2- 29032266 01 


-2.80299886 00 
1.10555086 01 


-7.14195566 01 
2.83984646 01 


4.98127736 00 
7.29061026 00 


2.68935086 00 
2.15573336 00 


5000.00 

2.04492 7BL-04 -l . 290602 3E-07 
4.13862136-05 -1.07815136-07 


5000.00 

6.77551/36-03 -2.87370126-06 

1.74745246-02 -8.25232476-06 


Bti(l) 

1000. 5000. 

300. 1000. 

6b 1 ( S ) 

1000. 5000. 

300. 1000. 

BblCLl(G) 
1000. 5000. 

300. .1000. 

OtlCL2(G> 
1000. 5000. 

iOO. loco. 

8b ICL2 ( 6 ) 
1000. 5000. 

300. 1000. 

6610.2(5) 
1000. 5000. 

300. 1000. 

Btlf KG) 

10UO. 5000. 

300. 1O00. 

86112 (0) 

1000. 5000. 

300. 1000. 

6611-2(6) 
tCOO. 5000. 

100. 100U. 

661) 2 ( SI 
iUOO. 5000. 

300. 1000. 

BE IF IC61 ( l» ) 
1000. 5000. 

300. 1000. 

Ublhl(G) 

1000. 5000. 

300. 1000. 

BblOl(G) 

1000. 5000. 

300. 1000. 

8E1UKL) 

100f . 5000. 

300. 1000. 

86101 ( S ) 

1000. 5000. 

300. 1000. 


1556.00 
3.7740406t 00 

- 0 . 

300.00 

2.89263246 00 
-l. 0397013b 00 

300.00 

4.09427486 00 
2.71782206 00 

300.00 

6.45398«,9t 00 
2.4650100b 00 

b 78.00 

1.1070519b 01 
1. 1070519c 01 

100.00 

- 0 . 

5.4849191b 00 
300.00 

3.70003t7fc 00 
3 . 35089326 OO 

300.00 

5 . 3886642L UO 
1.38501161; 00 

1070.00 

1 . 2U 769J0b 01 

- 0 . 

300.00 

8.2726971b 00 
8.2726971b 00 

300.00 

5.9472074b 00 
1.67057816 00 

300-CU 

3.0170590b 00 
3.81130346 00 

300.00 

4. 1807162b 00 
3. 6652305b 00 

2843.00 
7.29647876 00 
0. 

300.00 

4. 1238290L 00 
-3.5322081b 00 


5000.00 

- 0 . 

- 0 . 

1556.00 

-5.30757096-04 

1.68154336-02 

5000.00 
5.00672076-04 
5.27861456-03 

5000.00 
1.18619236-03 
1.681 6399t-02 

5000. OU 

- 0 . 

- 0 . 

678.00 

-0. 

7.49776066-03 

5000.00 
9. 12855606-04 
-2.5/604476-04 

5000.00 

2.3309^45E-03 

1.46344046-02 

5000.00 

- 0 . 

- 0 . 

1070.00 

5. 1025028t— 04 
5.10250286-04 

5000.00 
1.73047586-03 
1.72551476-02 

5000.00 
1 • 57281 8 7c-03 
-2.48322 I9L-03 

5000.00 

-2.4634/126-04 

-2.2914o47c-03 

5000.00 

0. 

0. 

2843.00 
2.68961646-03 
3.55<»7229t-U2 


- 0 . 

- 0 . 


7.45082246-07 

-2.67750456-05 


-1.95187446-07 

-6.50647106-06 


-5.24910416-07 

-2.47296126-05 


- 0 . 

- 0 . 


- 0 . 

- 0 . 


-3.74078056-07 

5.31693426-06 


-1.01135366-06 

-1.48838716-05 


- 0 . 

- 0 . 


- 0 . 

- 0 . 


-7.55513236-07 

-2.30009966-05 


-6.13953926-07 

6.30949926-06 


3.50229846-07 

8.72535626-06 


0. 

0. 


-t. 07721046-06 
-5.68220966-05 


- 0 . 

-o. 


3.65302096-10 

2.3342718C-08 


3.64320206-11 

3.74761416-09 


1.02732316-10 
1 • 7461 1626-08 


- 0 . 


- 0 . 

-U. 


7.09372716-11 

-6.55253936-09 


1.94958296-10 

6.73125896-09 


- 0 . 

- 0 . 


- 0 . 

- 0 . 


1.46281056-10 

1.49872306-08 


1.13604826-10 
-4. 7649985L-09 


-5.50954776-11 

-8.90559426-09 


0. 

0. 


2.03532506-10 

4.37460576-08 


- 0 . 

- 0 . 


-1.98393026-13 

-7.0695416E-12 


-2.39668476-15 

-8.03985246-13 


-7.39944166-15 
-4. 804381 5 t- l 2 


- 0 . 

- 0 . 


-0. 

- 0 . 


-4.93264626-15 

2.44713166-12 


- 1 . 38741626- L4 
-9.77484776-13 


- 0 . 

- 0 . 


- 0 . 

- 0 . 


-1.04440676-14 
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-1.96593836-11 


-5.17475226-15 

-1.04376346-12 


-1. 45593236-14 
-3.67149726-12 


-1.67274356-14 
2.05 769666-12 
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-3.0358504C-13 
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H25KU) 

1000. 5000. 
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300.00 
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5000.00 

6.92644476-04 
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5000-00 
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-1.26826526-06 
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-1.37728596-06 
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-5.34228756-08 

-8.67562136-07 


-8.53515706-07 
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-4.89403516-07 

-6.43361186-07 


-1.50448986-06 
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2.68079986-10 

-2.74536656-09 


-1.79676016-14 
4 .85843656-13 


-2.80573846 05 
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-1.21491346 04 


1.44261686 04 
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-3.36496466 04 
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-3. 0288770L 04 
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-1.02292166-11 


8.79026326 00 
4.35276236 00 


3.00017376 00 
7.70527716 00 


2.05451096 00 
8.59716806 00 
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3. 7 743H08L. 00 

300.00 

3. 15618306 00 
4.21 367896 00 

300.00 

4.60414201- 00 
3.49525496 00 


300.00 

4.61041526 00 
2.3981125b 00 

'300.00 

3.8424980b 00 
4.06221516 00 

300.00 

2.41740236 00 
2.52937406 00 

370.98 

2.22934566 00 
4.57611296 00 

300.00 

- 0 . 

1.6829897b 00 
300.00 

4.48165406 00 
4.29989556 00 

300.00 

4.4 26022 86- 00 
3.5818939L 00 

300.00 

9. 7992»42t 00 
7.64173666 00 

30 0. 00 

4.332031 76 00 
3.04674196 00 

300.00 

9.69892636 00 
6,45717866 00 

300.00 

3.79570456 00 
3.15013446 00 

300.00 

4.23980426 00 
2.7675754b 00 

'300.00 

4,77146936 00 
3.11887326 Op 

592.30 

1.00691406 01 
1.0773628C 01 

300.00 

- 0 . 

8.64743416 00 


5000.00 

5.40205236-03 

7.27233826-03 

5000.00 
2.9477999L-03 
2 . 5463209t-Q2 

5000.00 

1.86920836-03 

1.05542&5t-02 

5000.00 
2 .47799 38L-04 
5 .9294204 t^OS 

5000.00 
1 .268 15156-04 
5.79728046-05 

5000.00 
1 .58 51765 1 - 0 3 
-1.34119986-03 

5000.00 

6.66732286-04 

3.83255436-03 

5000.00 

1.4551/436-03 

1,19120046-02 

5000.00 

2.34278046-03 

2.96715116-02 

5000.00 
1. 98019136-03 
2.93709236-02 

5000.00 

3.76016436-03 

5.35344386-02 

5000.00 
1.40982516-03 
5. 73123256-04 

5000.00 

6.511/8696-03 

-5.06708716-04 

5000.00 
1 .40485946-03 
-4.62221706-03 

5000.00 

2.65999926-03 

1.76082576-03 

5000.00 

3.05331306-03 

1.02192886-02 

5000.00 

7.41728826-04 

-2.81901796-03 

5000.00 
1.79955036-04 

-2.23338696-04 

2500.00 
2.22401666-03 

-2.53907456-03 

370.98 

- 0 . 

1.46826146-02 

5000.00 
2.23154436-04 
1.05108806-03 

5000.00 

1.6777/516-04 

4.04509816-03 

5000.00 

2.44703246-04 

1.0630669t-02 

5000.00 

2.6411734c-04 

3.91004456-03 

5000.00 

3.51903026-04 

1.560587/6-02 

5000.00 

8.90821406-04 

1.20509526-03 

5000.00 

3.58649516-04 

6.37393206-03 

5000.00 
1.64240586-03 
9.17067136-03 

2500.00 

- 0 . 

-7.04487596-04 

566.00 

- 0 . 

-1.34023976-02 


-2. 584460 3t-06 
-1.26930826-05 


-1.7676425E-06 

-4.39920986-05 


-6.20892736-07 

-1.39381936-05 


-8.27776136-08 

-9.85986416-06 


-8.73532046-08 
—1 .50476176-07 


-6.17799016-07 

2.66933856-06 


-2.63023046-07 

-3.15907596-06 


-6.41782696-07 

-1.29047606-05 


-L. 03237876-06 
-4.02525286-05 


-8.77989896-07 

-4.28245976-05 


-1.66050176-06 

-7.67820826-05 


-4.52125296-07 

-2.08751576-06 


-2.28182586-06 

9.92458636-06 


-5.6989160.6-07 

1.10113456-05 


-L. 10920336-06 
7.93633906-06 


-1.23576186-06 

-1.08149296-05 


-3.03229536-07 

9.31580886-06 


-1.27444586-07 

5.89172966-07 


-1.27385186-06 

1.44972106-06 


- 0 . 

-5.20499626-05 


-1.15314906-08 

-1.43785836-06 


-3.09960426-08 

-6.94577416-06 


-1.14735326-07 

-1.93459806-05 


-8.46455886-08 

-9.75018576-06 


-1. 58592626-07 
-2. 8156 16 76-05 


-3.34728086-07 

2.65193366-06 


-1.28436926-07 

-9.74717596-06 


-5.23871216-07 
-1. 2997836 E- 05 


- 0 . 

- 0 . 


- 0 . 

2.83848376-05 


5.05638436-10 

1.13590316-08 


5 . 0086 172 E- 10 
3.60938586-08 


9.80107206-11 

9.04348046-09 


1.60639896-11 

7.67343016-09 


2.19626656-11 

1.62134446-10 


1.11194206-10 

-9.95595746-10 


5-09380036-11 

7.75723796-10 


1.25305736-10 

6.14923586-09 


2.01192436-10 
2 • 60520266-08 


1.72066506-10 

2.98284176-08 


3.24219976-10 

5.26587236-08 


7.4009378L-11 

3.07947446-09 


3.77123116-10 
-9. 62063606-09 


l. 06 150696- 10 
-9.29945686-09 


2.11923936-10 
-1 .10820896-08 


2.33636756-10 

6.57030746-09 


5.74113336-11 
-9.50891306-09 


3.15736036-11 

-&.45462296-10 


3.39381626-10 


■ 0 . 

7.42607856-08 


2.45758416-12 

1.09016776-09 


5.43284006-12 

5.58263356-09 


2.35165306-11 

1.60197316-08 


1.64894586-11 

7.54170076-09 


3. 13989366-11 
2.305475 76-08 


6. 42262106-11 
4.41450206-09 


2.48342006-11 

7.06712716-09 


7.96244036-11 

9.02433816-09 


0. 


- 0 . 

- 0 . 


-3.53936256-14 

-3.62242446-12 


-5.43312666-14 
-1 . 13392136- 1 1 


-5.98709116-15 

-2.2136996C-12 


-1.14694546-15 

-2.27489396-12 


-1.29785346-15 

-6.19541396-14 


-7.52106146-15 

-9.32766766-14 


-3.63613406-15 

1.32275536-13 


-9.00956396-15 

-9.51034786-13 


-1.4433841C-14 

-6.54599676-12 


-1.24057386-14 

-6.07602756-12 


-2.3298791C-14 
-l .4045 785C-1 1 


-4.48199806-15 

-1.25388776-12 


-2.38881546-14 

3.15116236-12 


-7.36589706-15 

2-7053867E-12 


-1.49855756-14 

4.24134786-12 


-1.62893926-14 

-1.72746666-12 


-4.01387336-15 

3.28430346-12 


-1.25444306-15 

2.50546006-13 


— 3. 490 158 4E— 14 

- 0 . 


- 0 . 

- 0 . 


-1.89651856-16 

-3.07748146-13 


-3.49591066-16 
-1. 69596476-12 


-1.75786636-15 

-4.99314896-12 


-1.18099876-15 

-2.22149026-12 


-2.27884586-15 

-7.12029146-12 


-4.55024706-15 

1.81881356-12 


-1.76757786-15 

-1.96837606-12 


-4.70109126-15 

-2.35112116-12 


- 0 . 

- 0 . 


- 0 . 

- 0 . 


1.65450256 03 
1.12106386 03 


-7.38913106 04 
-7.31163986 04 


-7.65176226 03 
-7.24449476 03 


L. 59030716 04 
1.61498516 04 


5.61498846 04 
5.61299856 04 


-8.92489726 02 
-1.06294986 03 


3.18905996 04 
3.21951266 04 


2.55832426 03 
3.37574796 03 


-1.7786216E 04 
-1.61057386 04 


6.89313066 03 
8.4154602t 03 


-5.55795666 03 
-2.72122926 03 


3.89281476 04 
3.86741116 04 


-6.39843596 03 
-6.72835566 03 


9.85080846 03 
9.73809026 03 


2.38535246 03 
2.90084266 03 


8.14120306 03 
8.72164126 03 


3.0784440E 04 
3.08726686 04 


1.23150046 04 
1.22847666 04 


-1.76652576 02 
-9.75424426 02 


- 0 . 

-8.41243536 02 


1.56958716 04 
1.57286896 04 


-2.32412526 04 
-2.30860356 04 


-7.17761536 04 
-7.14015506 04 


-3.68720166 04 
-3.66250846 04 


-1.05798896 05 
-1.05223846 05 


1.36078626 04 
1.38557706 04 


5.31498386 03 
5.61856606 03 


-2.96179356 04 
-2.93383796 04 


-5.40868196 04 
-5.44390606 04 


- 0 .. 

-5.36810286 04 


1.49976196 01 
8.74643836 00 


-2.36496266 01 
-2.32665866 00 


2.39883776 00 
1.24869706 01 


2.2515730E 00 
8.37273376 00 


4.50620006 00 
4.21273316 00 


6.3553564E 00 
2.28276996 00 


2.75895926 00 
8.57457656 00 


-3.31894646 00 
1.32113666 01 


-1.53908006 01 
2.12163006 01 


-1.57380296 01 
1.85838826 01 


-3.81708386 01 
2.5213931E 01 


6.01693646 00 
2.03568796 00 


9.27897546 00 
1.44033696 00 


6.93005256 00 
2.29111356 00 


1.41963836 00 
8.15649966 00 


-1.05947816 00 
1.01617466 01 


4.46109096 00 
4.06126286 00 


4.67428386 00 
4.10893836 00 


-5.71832396 00 
-1.84514596 01 


- 0 . 

-6.14999266 00 


2.0623236E 00 
2.91741626 00 


2.29617296 00 
6.27211356 00 


-1.70469026 01 
-6.99715986 00 


1.21546356 00 
7.32744726 00 


-1.95243926 01 
-4.36132966 00 


5.6S235S8E-01 
4.25414076 00 


2.1065041E 00 
9.21460776 00 


8. 5785022E-O1 
8.58733676 00 


-4.81324266 01 
-5.22943666 01 


- 0 . 

-3.88161096 01 
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NAlOlHl(S) 566.00 

1000. 5000. -0. 

300. 1000. 1.034*9031: 01 

NA20ZH2 ( 0) 300.00 

1000. 5000. 1.0462111c 01 

300. 1000. 3.68879*26 00 

Ntl(G) 300.00 

1000. 5000- 2.49B7054L 00 

300. 1000. 2.4728945k 00 

01(G) 300.00 

1000. 5000. 2.537256711 00 

300. 1000. 3.02180946 00 

U2tG) 300.00 

1000. 5000. 3. 59809956 00 

300. 1000. 3.7189946L 00 

UlHl(G) 300.00 

1000. 5000. 2.9029*116 00 

300. LO0O. 3.84242876 00 

PA(G) 300.00 

1000. 5000. 2.62561226 00 

300. 1000. 2.50169556 00 

P2(G) 300.00 

1000. 5000. 4.1440200b 00 

300. 1000. 2.6943141b 00 

SI 10) 300.00 

1000. 5000. 2.9077021b 00 

300. 1000. 2.8649268b 00 

SA(S) 300.00 

1000. 5000. 0. 

300. 1000. -1.8402765b OO 

52(G) 300.00 

1000. 5000. 4.1896932b 00 

300. 1000. 2.69993496 00 

SlbLUGI 300.00 

1000. 5000. 4.3335924b 00 

)00. 1000. 3.04778366 00 

S1GL2 ( 0 ) 300.00 

1000. 5000. 6.6442 I66t 00 

300. 1000. 3.79092146 00 

S2CL2 (.0) 300.00 

1000. 5000. 9.5051272u 00 

300. 1000. 5.0882460b 00 

$11 KG) 300.00 

1000. 5000. 4. 090595 7 L 00 

300. 1000. 2. 7368470b 00 


S1I?(G) JOU.OO 

loOO. 5000. 6.0466650c 00 

300. 1000. 2.5990660b 00 

sir-6t6) 30o.oo 

1000. 5000. 1.5245670b 01 

>00. 1000. -3.3342495b 00 

S2I2(0) 300.00 

1000. 5000. 8.7904583c 00 

300. 1000. 3.14784526 00 

$IM1(G1 300.00 

1000. 5000* 3.8116451b 00 

300. 1000. 3.13643266 00 

S102(U> 300.00 

1O00. 5000. 5.1982451b 00 

300. .1000. 3.225 7132b 00 

S1G3( 0) 300.00 

1000. 5000. 6.8889556b 00 

300. 1000. 1.7692057c 00 

SlUlCLKG) 300.00 

1000. 5000. 5. 9491040b UO 

300. 1000. 3. 5171217b 00 

S1U1CL2(G> 300.00 

1000. 5000. 8.7881265b 00 

300. 1000. 4.43290796 00 

SliJlF 1(G) 300.00 

1000. 5000. 6. 6379891b 00 

300. 1000. 2.94971846 00 

S101F2 (G) 300.00 

1000. 5000. 8.0366592c 00 

300. 1000. 1.7914919c 00 

S1U2F2 (0) 300.00 

1000. 5000. 9.53541376 00 

300. 1000. 9.6315531c-0i 

Slt(G) 300.00 

1000. 5000. 2.6590261c 00 

300. 1000. 3.3120935b 00 

SI Kb ) 1685.00 

1000. 5000. 3.1133319c 00 

300. 1000. -0. 

5U(S) 300.00 

1000. 5000. 7.96562696-01 

300. 1000. 3.4558844cr01 

$12(01 300.00 

1600. 6000. 4.34503446 00 

300. 1000. 3.0731227b 00 


592.30 

- 0 . - 0 . 

- 0 . - 0 . 

5000.00 

4. 47 2 396 6 b-0 3 -1.56616496-06 

3 .219568 lb-02 -4. 45978006-05 

5000.00 

1 .831 7316L-06 -9.62586496-10 

2.04915926-04 -5.36789386-07 

5000.06 

-1.84221906-05 -8.80179216-09 

-2. 17372496-03. 3.7542203E-06 

5000.00 

7.80567196-04 -2.23375066-07 

-2* 5167288 b-02i 8.5837353b-06 

5000.00 

9.7345968b-04 -2^03210806-07 

-1.26684536-03 1.65048896-06 

5000. 00 

-1.67689176-04 6.6485428fc-09 

-1.33270006-05 3.66148346-08 

5000.00 

4.298 16666—04 -1.75893536-07 

5.85992816-03 -8.0869497E-06 

5000.00 

-5.53749756-04 2.77632946-07 

6.51860706-04 -3.43544306-06 

388.36 

0 . 0 . 

3.32606486-02 -7.37457246-05 

5000.00 

3.84697046-04 -1.55666336-07 

6.27495496-03 -9.28707756-06 

5000.00 

2.57737496-04 -8.27839216-08 

5*903 77526-03 -9.74743666-06 

5000.00 

4 . 10854 306-04 -1.83667396-07 

l. 31805606-02 -2.24382986-05 

5000.00 

5 .66645386-04 -2.5099070E-07 

2.08103596-02 -3.63669516-05 

5000.00 

5.09563696-04 -2.01303656-07 

5.11421576-03 -6.07345916-06 


5000.00 

1.07737096-03 -4.74435826-0 7 

1.36951816-02 -1.84661216-05 

5000.00 

4.27813346-03 -1.89577426-06 

7 .96202 10c-O’2 - 1.2204 J95b-04 

5000.00 

1.370136*6-03 -6.03881896-07 

2.39265026-02 -3.60828826-05 

5000.00 

7.89O6107L-04 -3.2986127E-07 

1.30806896-03 2.18373646-06 

5000.00 

2.0595095fc-03 -8-62544506-07 

5.65812076-03 -2.49702086-07 

5000.00 

4.282B041C-03 -1.48593656-06 

1.85763316-02 -1.49573616-05 

5000.00 

1.16884036-03 -5.0955147E-07 

9.43625476-03 -l. 144 79756-OS 

5000.00 

1.36825536-03 -6.03950376-07 

1 .87055956-02 -2 . 80193716-05 

5000.00 

1.51674006-03 -6.61847976-07 

9.3823)616-03 -8.65904716-06 

5000.00 

2.20002126-03 -9.64121906-07 

2.54598796-02 -3.5068*316-05 

5000.00 

3.86059026-03 -1.68731736-06 
3.395*9646-02 -4.30496346-0* 

5000.00 

-3.74118076-04 3.06318256-07 

-3.70360436-03 6.81033716-06 

5000.00 

- 0 . - 0 . 

-O. -0. 

1685.0c 

6.17066996-03 -6 . 293127U-06 

1.17131646-02 -2.07895356-05 

5000.00 

2.22614866-04 -7.62863716-08 

5. 932'5*4*t-03 -1.009S0746-05 


- 0 . - 0 . 

- 0 . - 0 . 


2.59410726-10 -1.65327036-14 
3.01409966-08 -7.79642546-12 


2.16544506-13 -1.74738776-17 
*.83907856-10 -2.25155376-13 


*.96436216-12 -5. *7436086-16 
-2.99472006-09 9. 07775476-13 


4. 23966226-11 -3.34190566-15 

-8.29987166-09 2.70821806-12 


1 .591 1612E-1 1 -5. 1673895E-17 

-6. 676888 8 E- 10 1.30676636-13 


4. 1060775E-11 -*.75338186-15 

-4. 1852754E-11 1.69483316-14 


3.365*3876-11 -2.33318586-15 

5.30415316-09 -1.34218106-12 


-*.01256216-11 3.12700936-15 

3.987497*6-09 -1.48425596-12 


0 . 0 . 

2.57*48836-08 6.603U326-1L 


3.03680106-11 -2.179*8496-15 

6. *3932766-09 -l . 78022026-12 


1.60212906-11 — 1 . 1403914E-15 

7 . *40465 8b- 09 -2 .221 16206-12 


3. 6163024L-U -2.61447556-15 

I. 76*42l2fc-08 -*.28244576-12 


4.89522756-11 -3.50814846-15 

2.92805346-08 -8.94574576-12 


3.90078496-11 -2.78407076-15 

3.28864916-09 -6.31174176-13 


9.23863306-11 -6. 622 79466-15 
1 . 18867666-08 -2.95955166-12 


3.70987506-10 -2.66969246-14 

tt.8*73794c-08 -2.48435136-11 


1 • 176084 IL- 10 -6.42902876-15 

2.583*4466-08 -7.16102256-12 


6.3*132936-11 -4.51398926-15 

-3.9*182366-09 1.65403066-12 


1.6636523E-10 - 1 . 1847837E-14 
-4 • 2208766 L- 09 2.13927336-12 


2.8594348L-10 -2.03142936-14 

4.37467726-09 1.88*98886-13 


9.85422276-11 -7.02883206-15 

6.76418896-09 -1.56968506-12 


1.18027326-10 -0.49346176-15 

2.02599546-00 -5. 717 1315E-12 


1 .28104346-10 -9.14467356-15 

3.05096106-09 -1.12127716-13 


1.87177741-10 -1.3391 1996-14 

2.33420596-08 -6.078*5656-12 


3.27177816-10 -2.33955766-14 
2.66129696-08 -6.46998076-12 


-7.54051286-11 6. 02004186-15 

-5.71*12506-09 1.81714076-12 


- 0 . - 0 . 

-0. -O. 


3. 077508 IE-09 -5.6171 799E-13 

1.73722526-08 -5.45 14965L-12 


1.4678435E-11 -1.03917916-15 

8.021*3566-09 -2.42703786-1 2 


- 0 . - 0 . 

-5.4309095E 04 -5.1270542E 01 


-8.73310676 04 -2.43927956 01 

-8.59699196 04 8.31077086 00 


6.8614251E-01 3.34979116 00 

2.66856846 00 3.45463626 00 


2.92300076 04 4.9467942E 00 

2. 9137190b 04 2.6460076E 00 


-1.19297536 03 3.746S771E 00 

-1.05767066 03 3.90807046 00 


3.87799336 03 5.46544996 00 

3.58552286 03 5.04409066-01 


3.70323116 04 4.65399166 00 

3. 7085446E 04 5.36397646 00 


1.55058586 04 2.32004946 00 

1.5B27B716 04 9.4378082E 00 


3.26076566 04 3.80202616 00 

3.25733896 04 3.77440646 00 


0 . 0 . 

-3.6015645E 02 7.32488026 00 


1.41881336 04 3.2930300b 00 

1.4504935b 04 1.0534222b 01 


1.49577866 04 3.25097326 00 

1.520*0196 04 9.3661710b 00 


-4.67986*46 03 -4.31901226 00 

-4.14175956 03 9.19573696 00 


-3.39500716 03 -1.54552376 01 

-2.58066766 03 5.36168046 00 


3.27562206 02 3.0147026E 00 

6.4963762b 02 9.7713761E 00 


-3.21674286 04 -4.2777185E 00 

-3.13845376 04 1.27287716 01 


-1.50675516 05 -5.48510486 01 

-1.46804586 05 3.5029T56C 01 


-3.46246366 04 -1.48483316 01 

-3.34328146 04 1.2520128E 01 


-5.95994886 02 4.54422326 00 

-3.45726726 02 8.35702926 00 


-3.75414576 04 -8.30599636-01 

-3.69044766 04 9.8177036b 00 


-5.01670446 04 -1.0598S04E 01 

-4.87675516 04 1.57945206 01 


-1.45501976 04 -9.13625076-01 
-1.39596616 04 1.12564926 01 


-2.85828966 04 -1.38860946 01 

-2.76516316 04 7.28224026 00 


-1.69828786 04 -1.08000616 00 

-1.62717906 04 1.26743736 01 


-5.60459956 04 -1.36608916 01 

-5.46383096 04 1.7069540E 01 


-1.06652596 05 -2.2471016E 01 
-1.04622716 05 2.0179552E 01 


5.22547306 04 5.17458556 00 

5.21458556 04 2.1676254E 00 


5.16233656 03 -1.20761486 01 

- 0 . - 0 . 


-3. 8786628E 02 -3.69536606 00 

-4.71713956 02 -2.41688146 00 


7.29306826 04 2.72100556 00 

7.31707296 04 8.7440939E 00 


sum) 

1000. 5000. 

300. 1000. 

SIICLMG) 
1000. 5000. 

100 . 1000 . 

S11CL2(G> 
1000. 5000. 

300. 1000. 

S11CL4(G) 
1000. 5000. 

300. 1000. 

S11F1IG) 

1000. 5000. 

300. 1000. 

SllfZiGI 
1000. 5000. 

300. 1000. 

SllfMG) 

1000. 5000. 

300. 1000. 

SUHl(G) 

1000. 5000. 

300. 1000. 

S11H4IG) 

1000. 5000. 

300. 1000. 

SI INI (G) 

1000. 5000. 

300. 1000. 

SI10KG) 

1000. 5000. 

300. 1000. 

51102(6) 

1000 . 5 000 . 

300. 1000. 

SllSlIG) 

1000. 5000. 

300. 1000. 


300.00 

7.0680004U 00 
3.67201076 00 

300.00 

4.41782746 00 
3. 77836021. 00 

300.00 

6.5850971E 00 
3. 52037416 00 

300.00 

1.207700 It 01 
5.27988276 00 

300.00 

4. 12765186 00 
3.2635203L 00 

300.00 

5.7664934c 00 
2.69982b8ii 00 

300.00 

1.0492797c 01 
2. 3901709b 00 

300.00 

3. 0314187b 00 
3.84131176 00 

300.00 

4.2864439b 00 
l. 6111312b 00 

300.00 

3.80634031: 00 
3.1471330b 00 

300.00 

3.7295164b 00 
3.34958826 00 

300.00 

5.6085378E 00 
3.0434082b 00 

300.00 

4.17282L2b 00 
2.6860287L 00 


5000.00 

4.7014225t-04 

1.58893386-02 

5000.00 
1.31121*26-04 
2 .834 13 7bt-03 

5000.00 
4 . 71 80808L-04 
1 . 3999387b - 02 

5000.00 

1 . 0672 182 1-0 3 
3.11173796-02 

6000.00 

4 ,6295/y lt“04 
2.8480547t-03 

5000.00 
1 .38199636-03 
1.10384116-02 

5000.00 
2.83108846-03 
3. 19B2032t-U2 

5000.00 

1.55280976-03 

-‘2.73624356-03 

5000.00 
8. 942 1998 t-0 3 
1.27 199906-02 

5000.00 

7.97123586-04 

1.22659266-03 

5000.00 

8.63369516-04 

-2.66382506-04 

5000.00 

2.07065596-03 

9.60897306-03 

5000.00 
3.96183796-04 
6 .174*5276-1)3 


-2.07580916-07 

-2.73448456-05 


-3.27425266-08 

-4.51164676-06 


-2.08236636-07 

-2.35615046-05 


-4. 7852424t-0 7 
-5.23026856-05 


-1.83896726-07 
-2. 18988746-06 


-6.05052456-07 

-1.17136266-05 


-1.24758696-06 
-4. 19952376-05 


-6.0921584E-07 
6.998 1472c-06 


-3.70307386-06 

-1.68843396-06 


-3.31582076-07 
2 ■ 3774131E-06 


3.58944696-07 

5.4814021E-06 


-8.94896926-07 

-9.11045696-06 


- 1 . 59852326-07 
-8.96473376-06 


4.03945826-11 

2.17459586-08 


5.49726936-12 

3.39677096-09 


4.05310526-11 

1.84317076-08 


9.45044026-11 

4.07753976-08 


3.50990666-11 

2.64729776-10 


1.17329926-10 
5 .40635946-09 


2.43244356-10 

2.62999336-08 


1.12934136-10 

-5.52384446-09 


6.91711166-10 
-4.5135 745L-09 


6.28403846-11 

-4.14412656-09 


6.82127966-11 

-6.87932926-09 


1.72213656-10 

4.04713346-09 


3.03069926-11 

6.20710966-09 


-2. 88 9S 2046-15 
-6.57441896-12 


-3.30223216-16 

-9.78248886-13 


-2.90074376-15 

-5.50286706-12 


-6.85136376-15 
-l. 21157306-11 


-2.36246936-15 

2.53031426-13 


-8.38444946-15 
-7. 7859 I486- 13 


-1.74612906-14 

-6.37482006-12 


-7.81328366-15 

1.50076316-12 


-4.81376956-14 

2.04003196-12 


-4.26008256-15 

1.72345046-12 


-4.78445616-15 

2.61108216-12 


-1.22483626-14 

-6.4477587E-13 


-2.07392586-15 

-1.66547236-12 


7.75349166 04 
7.81749676 04 


2.26607416 04 
2*27889336 04 


-2.2717268E 04 
-2. 21289136 04 


-7.71862756 04 
-7.58870656 04 


1.08085616 03 
1.31261606 03 


-6.37188076 04 
-6.29457086 04 _ 


-1.92330786 05 
-1.90463786 05 


4.39599986 04 
4.38663236 04 


1.90359526 03 
2.90215446 03 


5.90428666 04 
5.92905396 04 


-1.20083106 04 
-1.17970816 04 


-3.88389276 04 
-3.81466406 04 


1.33548386 04 
1.36759356 04 


-1.02645776 01 
5.88935366 00 


3.27725626 00 
6.34436296 00 


-4.2997550E 00 
I. 02697816 01 


-2.987403BE 01 
2.41384896 00 


3. 3489 1276 00 
7.79562756 00 


—3. 1468068E 00 
1.23643746 01 


-2.7671199E 01 
1.24264186 01 


6.1333672E 00 
2.52597836 00 


-3.16987316 00 
1.17384766 01 


3.95402706 00 
7.69409896 00 


3.74728296 00 
6.2421835E 00 


-S. 61344256 00 
7.5419379E 00 


2.8391688E 00 
1.0090654E 01 


6N0 000000000000 0. 0. 

0. 0. 0. 0. 0. 

0. 0. 0. 0. 0. 



APPENDIX C 


PROGRAM LISTING FOR IBM 704 


MAIN PROGRAM ONE 


COMMON C 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 


(Gill. 

( FORM ( 1 ) » 
(ELMT(l), 

( DATA (1 } » 
(A(l>, 
(COEFT(l), 
(ANS(l) i 


can. 
can, 
c (i6 n . 
coin . 

C(421)> 

CI42in 

cu2in 


EQUIVALENCE 

(HSUM. 

CC424U. 

(SSUM, 

Ct 425 5 ) 

EQUIVALENCE 

(WTMOL, 

C(426) ) . 

(CP. 

CI427)) 

EQUIVALENCE 

(DLMPT. 

C ( 428 ) > . 

(DLMTP. 

C ( 429 ) ) 

EQUIVALENCE 

(GAMMA, 

C ( 430) ) ♦ 

(ARATIO. 

C( 431) ) 

EQUIVALENCE 

(VMACH, 

C ( 432 ) ) . 

(SP IMP. 

C(433) ) 

equivalence 

(VACI , 

C ( 434 ) >* 

<CF. 

C(436) ) 

EQUIVALENCE 

( RHOl , 

C ( 437 ) ) . 

(RHOVAC. 

C(438) ) 

EQUIVALENCE 

(RHO, 

C ( 439) ) 



EQUIVALENCE 

(T PI, 

C ( 440 ) ). 

(PI I. 

C (441 ) ) 

EQUIVALENCE 

<EP PI, 

C ( 442 ) I » 

(AW PI, 

C(443n 

EQUIVALENCE 

(T ETA, 

C(445)I 



EQUIVALENCE 

(ETA I, 

C ( 446 ) ) . 

(EP ETA. 

C(447M 

EQUIVALENCE 

(AW ETA, 

C ( 448 ) ). 

(T SIG. 

C(450)J 

EQUIVALENCE 

(SIG I, 

C < 451 ) ) . 

(EP SIG. 

C(452) ) 

EQUIVALENCE 

(AW SIG, 

C(453)I 



EQUIVALENCE 

( EN ( 1 ) , 

C(177in» 

(EN( 90 > » 

C ( 1 860 1 ) 

EQUIVALENCE 

(Boxan 

C(l77in » 

(BOX ( 15 ) . 

C( 1785) ) 

EQUIVALENCE 

(BOFU) , 

C( 1786) 5 . 

(BOF (155* 

caeoon 

EQUIVALENCE 

(HX, 

C( 1601)), 

<HF, 

C ( 1802) ) 

EQUIVALENCE 

(VXPLS. 

C ( 1803 ) ) , 

(VXMIN, 

C ( 1804) ) 

EQUIVALENCE 

(VFPLS, 

casosn. 

(VFMIN. 

C( 1606 ) ) 

EQUIVALENCE 

(EN LN ( 1 ) 

C ( 1861 ) ) . 

(EN LN( 90 ) . 

C<1950>> 

EQUIVALENCE 

(DEL N ( 1 ) , 

C < 1951 ) ) . 

(DEL N< 90 ) » 

C(2040) ) 

EQUIVALENCE 

(COEFX(l) 

C ( 1951 ) ) , 

(COEFX( 20 ) , 

C(197on 

EQUIVALENCE 

( DX ( 1 ) , 

C ( 1951 ) ) > 

( DX ( 20 ) , 

C( 1970) ) 

EQUIVALENCE 

( HO (1 ) » 

C ( 2041 ) ) * 

(H0I90I. 

C(2130) ) 

EQUIVALENCE 

(SCI), 

C(2131)l. 

(S(90 ) , 

C(2220)) 

EQUIVALENCE 

(X(l) , 

C(2221))» 

( X ( 20 ) * 

C(2240>) 

EQUIVALENCE 

(FORMLAd 

, C(222in, 

(FORMLAdSI 

»C( 2238 ) ) 

EQUIVALENCE 

(DELTAtl) 

C ( 2241 ) ) , 

(DELTA< 20 > , 

C ( 2260 ) > 

EQUIVALENCE 

( BO ( 1 ) , 

C ( 2261 ) ) . 

(80(15). 

C ( 2275 ) ) 

EQUIVALENCE 

(PO, 

C ( 2276 ) ) , 

(HSUBO, 

CI2277)) 

EQUIVALENCE 

(SO, 

C ( 2278 )) . 

(T LN. 

C ( 2279 > ) 

EQUIVALENCE 

(T, 

C(2280)>» 

(AAY LN. 

C (2281 ) 

EQUIVALENCE 

( AAY , 

C l 2282 ) ) » 

(CPSUM, 

C 12283 ) ) 

EQUIVALENCE 

(HC, 

C ( 2284) ) » 

(TC LN, 

C ( 2285 ) ) 

EQUIVALENCE 

<PCP(1), 

C ( 2286 ) ) . 

(PCP(25) , 

C(2310> ) 

EQUIVALENCE 

( PROD ( 1 ) ♦ 

CI2311M . 

( PROD ( 3 ) , 

C(2313) ) 

EQUIVALENCE 

( DATUM ( 1 ) 

C 1 2311 ) ) , 

( DATUM ( 3) ♦ 

CI2313)) 

equivalence 

(PC* 

C < 2314 > ) » 

(TC, 

C ( 2 315 ) ) 

EQUIVALENCE 

( IPR08, 

C ( 2316 > ) » 

( IFIXT , 

C( 2317) ) 

EQUIVALENCE 

( IHS, 

C ( 2318 ) ) » 

< ICOND, 

Cf 2319) > 

EQUIVALENCE 

( ISYM, 

C(2320») » 

( IPROD* 

C r 2321 ) ) 

EQUIVALENCE 

( IDID, 

CI2322)) * 

(LDRUM, 

C ( 2323) ) 

EQUIVALENCE 

(IDRM, 

CI2323J) ♦ 

(KDRUM. 

C(2324) ) 

EQUIVALENCE 

(L, 

C( 23255 ) * 

(LI* 

C(2326)5 

EQUIVALENCE 

(M, 

C( 2327 ) ♦ 

(Ml, 

C(2328) ) 

EQUIVALENCE 

(N, 

CI2329J). 

(10, 

C(2330)) 

EQUIVALENCE 

<101, 

C ( 2331 ) ) , 

( IQ2 , 

C( 2332 ) ) 

EQUIVALENCE 

( 103. 

C (2333 ) ♦ 

(KMAT, 

C( 2334) ) 

EQUIVALENCE 

( 1MAT » 

C ( 2335 ) ) , 

( IUSE, 

C( 2335 ) ) 

EQUIVALENCE 

( 1ADD, 

C ( 2336 ) ) , 

( ITNUM8 » 

C(2337) ) 

EQUIVALENCE 

( ITAPE. 

C ( 2338 ) ) , 

(P, 

C(2339) ) 

equivalence 

( I DEBUG, 

C ( 2340 ) > ♦ 

( IFR02, 

C ( 2341 ) ) 

DIMENSION 

G ( 20.21 ) , 

A ( 1 5 .90 1 , 

EN(90)» 

EN LN ( 90 ) 

DIMENSION 

DEL N ( 90 ) , 

HO ( 90 ) » 

S(90), 

X (20 ) 

DIMENSION 

DELTA ( 20 ) . 

B0( 1 5 ) » 

PCP(25)» 

PROD ( 3 ) 

DIMENSION 

COEFX ( 20 ) » 

DX ( 20 ) , 

FORM (15), 

COEFT (15. 

DIMENSION 

ELMT < 15 ) » 

DATA< 23) » 

DATUM! 3 > . 

FORMLA ( 18 

DIMENSION 

BOX ( 15 ) , 

BOF ( 15) ♦ 

ANS(454). 

SYSTM(15 ) 


(G(420) » 
(FORM (15) , 
(ELMT<15) , 
(DATA(23) , 
(A(1350>» 


C(420) I 
CI15II 

coon 
c ( 53 n 

C ( 1770 ) > 


( COEFT (1350 ) »C (1770 )) 
(ANS(454). C ( 874) ) 


S H S ALF 
S T S ALF 
S P T ALF 
S T P ALF 
S DET ALF 
S End ALF 
S BLK ALF 
SOMIT ALF 
S MT ALF 


P.T 

T»P 

DETN 

END 

00000 

OMIT 


CONVERT BST TO BSF INSTRUCTIONS AT 450,1457*531,596,600,225.229 

390 CAL*390 
STP*450 
STP*1457 
STP*531 
STP*596 
STP*600 
STP*225 
STP«229 

READ IN INPUT DATA 

400 READ DRUM 4,455 »ISYS 

IF (ISYS-99) 401,403,401 
403 READ TAPE 3, (G< 1 ) * I -1 ,2341 ) 

REWIND 3 

IF (SENSE SWITCH 6) 651,719 

401 ISYS-99 

WRITE DRUM 4 ,455.1 SYS 
IFROZ-0 
PAUSE 11111 
405 13-3 
14-4 
KDRUM-2 
LORUM-3 
I TAPE-4 
429 CALL INPUT 

IF <L> 651.651.433 

433 WRITE OUTPUT TAPE 6.443. HX.VXPLS.VXMIN.HF.VFPLS.VFMIN 
1. ( ELMT ( 1 1 .BOX (I).BOF(I).l-l.L) 

443 FORMAT (10H10XIDANT 3E16.6/10H FUEL 3E16,6/(1H A6.2E20.8)) 
RIGHT ADJUST ELEMENT SYMBOLS 
DO 447 K-l.L 


0001 

0002 

0003 

0004 

0005 

0006 

0007 

0008 

0009 

0010 
0011 
0012 

0013 

0014 

0015 

0016 

0017 

0018 

0019 

0020 
0021 
0022 

0023 

0024 

0025 

0026 

0027 

0028 

0029 

0030 

0031 

0032 

0033 

0034 

0035 

0036 

0037 

0038 

0039 

0040 

0041 

0042 

0043 

0044 

0045 

0046 

0047 

0048 

0049 

0050 

0051 

0052 

0053 

0054 

0055 

0056 

0057 

0058 

0059 

0060 

0061 

0062 

0063 

0064 

0065 

0066 

0067 

0068 

0069 

0070 

0071 

0072 

0073 

0074 

0075 

0076 

0077 

0078 

0079 

0080 
0081 
0082 

0083 

0084 

0085 

0086 

0087 

0088 

0089 

0090 

0091 

0092 

0093 

0094 

0095 

0096 

0097 

0098 

0099 

0100 
0101 
0102 

0103 

0104 

0105 

0106 

0107 

0108 

0109 

0110 
0111 
0112 

0113 

0114 

0115 

0116 

0117 

0118 

0119 

0120 



ELMT(K) 

12 

£LMT(K) 

6 

6 

BLK 

S TNZ«447 

S CLA ELMTfK) 

S LRS 6 

S STO ELMT(K) 

447 CONTINUE 

READ DRUM 4.456.SYSTM 
S CLA SYSTM(L*1> 

S TNZ*453 

S CLA SYSTMIL) 

S TZE*453 

DO 449 K»1,L 
DO 446 J»1»L 
S CLA ELMTIK) 

S SUB SYSTM(J) 

S TZE*449 

448 CONTINUE 
60 TO 453 

449 CONTINUE 
REWINO 13 

S 450 BST 4 

S NOP 

S RT8 4 

C 

C CANCEL OMITS FROM PREVIOUS PROBLEM 

C 

452 DO 2455 JNT*lt2 

READ TAPE I TAPE* ( <CO£FT(K, J) ,K«1 ,15 ) « J-l *90 ) 

00 1453 J-l.M 
S CLA MT 

S1453 STO C0EFTI1.J) 

1455 WRITE TAPE 3» I ICOEFT! K» J) ,K-1 »15 ) « J-l, 90 > 

1 USE» 1 
REWIND 3 

S1457 BST 4 
S NOP 
S RTB 4 

60 TO 596 

453 DO 459 K-1,15 
459 SYSTMfKJ-ELMTCK) 

WRITE DRUM 4,456,SYSTM 
ITAPE-2 
REWIND 13 
REWIND 14 
C 

c BYPASS PING-PONG CORE LOADS ON TAPE 2 AND SAVE MASTER DATA FROM 
C TAPE 4 ON TAPE 2 

C 
C 

S 522 RTB 2 
S CPY 

S TRA*522 


CLM 

SSP 

LDO 

LGL 

STO 

LRS 

CLM 

LLS 

SUB 


0123 

0124 

0125 

0126 

0127 

0128 

0129 

0130 

0131 

0132 

0133 

0134 

0135 

0136 

0137 

0138 

0139 
0240 

0141 

0142 

0143 

0144 

0145 

0146 

0147 

0148 

0149 

0150 

0151 

0152 

0153 

0154 

0155 

0156 

0157 

0158 

0159 

0160 
0161 
0162 

0163 

0164 

0165 

0166 

0167 

0168 

0169 

0170 

0171 

0172 

0173 

0174 

0175 

0176 

0177 

0178 

0179 

0180 


< DATA! I ) i 1 = 1 *23 ) 
I DATA! I )» 1-1,23) 


CALL SEARCH (13,14,1 USE I 
C 

C PUT COMPILED DATA TAPE ON TAPE 4 FOLLOWING MASTER DATA 

591 IF (14-4) 596,593.596 

593 DO 594 INT*1*2 

READ TAPE I4»( (COEFT(K.J) »K«=1,15),J = 1»90) 

WRITE TAPE I3»{ (COEFT(K«J),K»i,i5),jai,90) 

594 CONTINUE 
REWIND 13 
REWIND 14 

S 596 B5 T 2 

S NOP 

S RTB 2 

597 READ TAPE ITAPE »( DATA< I) . 1-1,23 ) 

WRITE TAPE 4, ( DATA ( I ) , 1-1 ,23 ) 

S CLA DATA(l) 

S SUB END 

S TNZ*597 

END FILE 4 

598 DO 599 INT-1,2 

REAO TAPE 3, ( (COEFTIK, J) ,K-1,15),J-1*90) 

599 WRITE TAPE 4, ( ( COEFT ( K» J) »K-1 , 15> » J-l ,90) 

IF ( I USE-2 ) 600,635,635 

S 600 BST 4 
S NOP 
S RTB 4 

REWIND 3 
C 

C SET ARRAY PROD TO BYPASS ALL CONDENSED PHASES 

PROD ( 1 ) -0,0 
PROD ( 2 ) -0,0 
S 197 LXD M,(M) 

S CLM 
S SSP 
S COM 
S LRS 35 
S CLM 

S TXL*198 , (M) ,35 

S TXL*199 , (Ml , 70 

S TXL*200» (M) , 90 

GO TO 635 
S 198 STQ PROD (3 1 
S STO PROD ( 2 ) 

S LLS 35, (M) 

S STO PR0D(1) 

GO TO 201 


S TRA*523 

S TRA*522 

523 READ TAPE 14. 
WRITE TAPE 2, 
S CLA DATA(l) 

S SUB END 

S TNZ*523 

S 531 BST 2 

S NOP 

S RTB 2 

REwrNO 13 
REWINO 14 


0103 

0184 

0185 

0186 

0187 

0188 

0189 

0190 

0191 

0192 

0193 

0194 

0195 

0196 

0197 

0198 

0199 

0200 
0201 
0202 

0203 

0204 

0205 

0206 

0207 

0208 

0209 

0210 
0211 
0212 

0213 

0214 

0215 

0216 

0217 

0218 

0219 

0220 
0221 
0222 

0223 

0224 

0225 

0226 

0227 

0228 

0229 

0230 

0231 

0232 

0233 

0234 

0235 

0236 

0237 

0238 

0239 

0240 



S 199 STQ PROD! 3) 

$ LLS 70* (Ml 
S STO PROD 12) 

60 TO 201 
S 200 LLS 105 t (M) 

S STO PR0DI3) 

201 IQ*L 

IQ1=IQ+1 

102 = 101+1 

103=102+1 

L1=I01 

M1=M+1 

C 

C DETERMINE WHICH GASEOUS SPECIES SHOULD BE OMITTED FROM THE PROBLEM 

C AND WHICH CONDENSED SPECIES SHOULD BE USED IN THE FIRST ITERATION 

C 

203 READ INPUT TAPE 7.204* I DATA(I) ♦ I =1*8 ) 

204 FORMAT (4I2A6.3X)) 

S 205 CAL MT 

S COM 
S ANA DATA! 1) 

S TZE*220 

DO 213 K=l*4 

207 DO 211 J»1*N 
DO 208 1=2*3 
KK=2*K+I“3 

S CAL COEFT(I.J) 

S COM 
S ANA DATA IKK! 

S TNZ*211 

208 CONTINUE 

IF <J-M> 209*209*210 

209 CALL BYPASS (J.2) 

GO TO 213 

210 CALL BYPASS (J»3) 

60 TO 213 

211 CONTINUE 
213 CONTINUE 

60 TO 203 
220 DO 224 !NT»1*2 

READ TAPE 4* ( (COEFTIR* JI *K=1.15 ) *J»1*90 ) 

DO 222 J=1»M 
CALL BYPASS (J*l> 

IF ( I PROD-2 ) 221*222*221 
S 221 CLA OMIT 
S STO COEFT(l.J) 

222 CONTINUE 

2 24 WRITE TAPE 3* ( ICOEFT (K*J)*K=1»15) ♦ J=1 ♦ 90 ) 

REWIND 3 
S 225 BST 4 
S NOP 
S RTB 4 

DO 227 INT»1 *2 

READ TAPE 3* UCOEFTU.J) »K = 1»15> »J=1*90) 

227 WRITE TAPE 4* ( (COEFTOC.J) *K=1»15) ♦ J=l*90) 

REWIND 3 
S 229 BST 4 
S NOP 
S RTB 4 


0241 

0242 

0243 

0244 

0245 

0246 

0247 

0248 

0249 

0250 

0251 

0252 

0253 

0254 

0255 

0256 

0257 

0258 

0259 

0260 
0261 
0262 

0263 

0264 

0265 

0266 

0267 

0268 

0269 

0270 

0271 

0272 

0273 

0274 

0275 

0276 

0277 

0278 

0279 

0280 
0281 
0282 

0283 

0284 

0285 

0286 

0287 

0288 

0289 

0290 

0291 

0292 

0293 

0294 

0295 

0296 

0297 

0298 

0299 

0300 


C ARRANGE ANSWER REGION 
C 

1=1 

DO 602 J-l.N 

COEFT ( I J "COEFT ( 1 » J I 

COEFT(I + l)=COEFT(-2*J) 

COEFT ( 1+2 1 “COEFT (3.J) 

COEFTU+3I-0.0 
602 I-T+4 
K=4*N 

605 I=K+34 

COEFT (I)«COEFT(K» 

IF <K) 651.607.605 
607 DO 609 K-1.34 
609 COEFT { 10*0*0 

WRITE DRUM KDRUM.1576.ANS 
REWIND 2 
READ TAPE 2 
ITAPE=4 

READ TAPE ITAPE. ( (COEFTIK.J) *K«1*15) .J=1.90» 
WRITE DRUM KDRUM. 1 .COEFT 
C 

C DETERMINE THE TYPE OF PROBLEM 

C 

700 IFROZ*l 

701 READ INPUT TAPE 7.703.PROB.KASE 
703 FORMAT (A5.I5) 

WRITE DRUM 4.789.KASE 
S CLA PROS 
S SUB H S 
S TNZ+705 

I PROB* 1 
GO TO 715 
S 705 ADD H S 
S SUB T S 
S TNZ+707 

I PR08=2 
GO TO 715 
S 707 ADD T 5 
S SU8 P T 
S TNZ+709 
IPROB=3 
GO TO 715 
S 709 ADD P T 
S SUB T P 
S TNZ+711 
I P?08=4 
GO TO 715 
5 711 ADD T P 
S SUB DET 
S TNZ+713 
IPROB=l 
IFR02=-1 
GO TO 719 
S 713 ADD DET 
S SUB MT 
5 TNZ*63 1 

GO TO* 405 
715 DO 716 K-1.25 


0303 

0304 

0305 

0306 

0307 

0308 

0309 

0310 

0311 

0312 

0313 

0314 

0315 

0316 

0317 

0318 

0319 

0320 

0321 

0322 

0323 

0324 

0325 

0326 

0327 

0328 

0329 

0330 

0331 

0332 

0333 

0334 

0335 

0336 

0337 

0338 

0339 

0340 

0341 

0342 

0343 

0344 

0345 

0346 

0347 

0348 


0350 

0351 

0352 

0353 

0354 

0355 

0356 

0357 

0358 

0359 

0360 



53 


716 PCPUl-0.0 
I =>0 

1716 READ INPUT TAPE 7 . 718 , ( G ( K> ,K*1 ,5 ) 

IF (GUM 719,719.717 

717 DO 1717 K*1 *5 
IK=I+K 

1717 PCP ( I K ) =61 K ) 

1 = 1 + 5 

GO TO 1716 
716 FORMAT (5F10.2) 

C 

C DETERMINE THE ASSIGNED VALUES FOR THE PROBLEM 
C 

719 READ INPUT TAPE 7,721 ,EQRAT,0 F»F PCT»PC»TC»KODE*IDEBUG 

721 FORMAT ( 5F10.2, I 5 , 16X , II > 

WRITE DRUM 4*482»K0DE 

722 READ DRUM LDRUM. 1996. BOX, BOF »HX,VXPLS»VXMIN,HF,VFPLS»VFMIN 
IF (EQRAT) 725,725,723 

723 0 F=(— EORAT*VFM IN-VFPLS ) / ( VXPLS+EGRAT*VXMIN ) 

F PCT*100. 0/(1, 0+0 F) 

GO TO 745 

725 IF (OF) 731»7'3l»72? 

727 F PCT* 100,0/(1.0+0 FI 

729 EQRAT=ABSF ( (0 F*VXPLS+VFPLS) / <0 F*VXMIN+VFMIN ! ) 

GO TO 745 

731 IF (F PCT > 700,700,733 
733 0 F*( 100.0-F PCTI/F PCT 
GO TO 729 

745 IF TO F) 719,746,746 

746 DO 747 1=1 »L 

747 80m«<0 F*80X ( I ) +BOF (!))/( 1.0+0 F) 

IF (IPROB-1) 651,749,748 

748 HSU80»0»0 
GO TO 755 

749 H5UB0= (0 F*HX+HF ) / (1 .0+0 F) 

755 WRITE DRUM 4*790*0 F,F PCT, EQRAT 
READ DRUM 4,789,KASE 

WRITE OUTPUT TAPE 6 , 760. KASE, PROS, 0 F.F PCT.EORAT.PC.HSUBO, 
1 (B0in,I«l,U 

760 FORMAT ( 1H1I5,3X,A6/1H 4E17.8/UH 7E17.8H 
WRITE DRUM 4, 1700, N, IPROB,BOX,BOF,BO 
HSUB0=HSUB0/1. 98726 
REAO DRUM LDRUM ,2032 »RH0X ,RHOF 
REAO DRUM KDRUM, 1 576, ANS 
RHO-RHOX+O F*RHOF 
IF (RHO) 772,772,771 

771 RHO*( 1.0+0 F>*RHOX#RHOF/RHO 

772 WRITE DRUM KDRUM, 1576 .ANS 
775 IF ( IFROZ) 777,651,779 
777 CALL P0NG<4) 

779 CALL PONG! 2) 

C 

C ERROR PRINT OUT 
C 

631 WRITE OUTPUT TAPE 6»633»PR0B»KASE 

633 FORMAT < 21H1THERE IS NO PROBLEM A6»2X»I5> 

GO TO 651 

635 WRITE OUTPUT TAPE 6,637 

637 FORMAT (47H1TR0UBLE IN COMPILING MASTER THERMODYNAMIC TAPE) 
REWIND 4 


0361 

0362 

0363 

0364 

0365 

0366 

0367 

0368 

0369 

0370 

0371 

0372 

0373 

0374 

0375 

0376 

0377 

0378 

0379 

0380 

0381 

0382 

0383 

0384 

0385 

0386 

0387 

0388 

0389 

0390 

0391 

0392 

0393 

0394 

0395 

0396 

0397 

0398 

0399 

0400 

0401 

0402 

0403 

0404 

0405 

0406 

0407 

0408 

0409 

0410 

0411 

0412 

0413 

0414 

0415 

0416 

0417 
0428 

0419 

0420 


S 

s 

s 


639 READ TAPE 4, ( DATA (I), 1=1, 23) 

WRITE OUTPUT TAPE 6,640, (DATA! I) ,1=1,23) 

640 FORMAT ( 1H 3A6 , 2F 10. 1/ (1H 2F8.1,7E14.6) ) 

CLA DATA! 1 ) 

SUB END 
TNZ*639 
DO 641 INT=1»2 

READ TAPE 4, ( ( COEFT ( K , J I , K=1 » 15 > ,J = 1 ,90 1 

641 WRITE OUTPUT TAPE 6 ,643 , ( < COEFT < K, J ) ,K=1 , 14 ) , J»1 ,N ) 
643 FORMAT (1H 3A6.2F15.2/2F8.1.7E12.4//) 

651 REWIND 4 

PAUSE 77777 


0421 

04 22 

0423 

0424 

0425 

0426 

0427 

0428 

0429 

0430 

0431 

0432 



SUBROUTINE SEARCH ( 13*14* JEER) 
C 


COMMON C 


EQUIVALENCE 

(G( 1) . 

Cll) >. 

(0(420) » 

C 1 420 ) ) 

EQUIVALENCE 

< FORM ( 1 > » 

C( 1 ) ) » 

(FORM (15) » 

C ( 15 ) ) 

EQUIVALENCE 

(ELMT(l). 

C( 16 > ) , 

( ELMT ( 15 ) • 

COO) ) 

EQUIVALENCE 

(DATA(l). 

C ( 31 ) ) » 

(DATA (23) i 

C ( 53 ) ) 

EQUIVALENCE 

(All). 

0 421) )♦ 

(At 1350) , 

C 1 1770) ) 

EQUIVALENCE 

( COEFT (1) . 

C(421)I. 

( COEFT (1350) »C( 1770) ) 

EQUIVALENCE 

(ANSI 1) . 

C ( 421 ) )» 

IANS (454) » 

C ( 874 ) ) 

EQUIVALENCE 

(HSUM. 

C 1 424 ) ), 

( SSUM » 

C ( 425 ) ) 

EQUIVALENCE 

(WTMOL. 

C(426) >, 

(CP. 

C(427) ) 

EQUIVALENCE 

( OLMPT . 

0428) V » 

(DLMTP » 

C(429) ) 

EQUIVALENCE 

(GAMMA. 

0430) )* 

(ARATIO, 

C(431) ) 

EQUIVALENCE 

(VMACH. 

C(432 ) it 

(SP IMP, 

C(433) ) 

EQUIVALENCE 

( VAC I . 

CJ434) >» 

(CF» 

C(436) ) 

EQUIVALENCE 

( RHOI » 

C(437) ), 

(RHOVAC, 

0438) ) 

EQUIVALENCE 

(RHO. 

0439) ) 



EQUIVALENCE 

(T PI. 

C ( 440 ) I » 

(PI I, 

C(441) ) 

EQUIVALENCE 

(EP PI. 

CI442J ), 

(AW PI. 

C (443 ) ) 

EQUIVALENCE 

(T ETA. 

0 445) ) 



EQUIVALENCE 

(ETA I. 

C( 446) )» 

(EP ETA, 

C( 447) ) 

EQUIVALENCE 

1 AW ETA, 

C( 4481 ) , 

(T SIG. 

Ct450>> 

EQUIVALENCE 

(SIG I. 

C ( 451 > ) • 

(EP SIG. 

C ( 452) ) 

EQUIVALENCE 

(AW SIG* 

C(453) > 



EQUIVALENCE 

(EN(1). 

C< 1771)1 . 

(ENC90) , 

C( 1860) ) 

EQUIVALENCE 

<Boxm. 

C ( 1771 ) ) , 

(BOX ( 15), 

C( 1785 ) ) 

EQUIVALENCE 

IBOFtl), 

Ct 1786) ) , 

(BOF t 151. 

ctieoo)) 

EQUIVALENCE 

('HX, 

C( 1801 > • 

(HFt 

C C 1 802 ) ) 

EQUIVALENCE 

(VXPLS. 

C ( 1803 ) ) , 

(VXMIN, 

C ( 1804 ) ) 

EQUIVALENCE 

(VFPLS. 

C 1 1805 ) ) , 

(VFMIN, 

C< 1806) ) 

EQUIVALENCE 

(EN LN ( 1 ) » 

C( 1861 ) ) , 

(EN LN < 90 ) , 

C( 1950) ) 

EQUIVALENCE 

(DEL tuu* 

Ct 1951 ) } « 

(DEL N ( 90 > » 

0 2040)) 

EQUIVALENCE 

(COEFX(l) , 

Cl 195111 • 

< COEFX ( 20 ) . 

C( 1970) ) 

EQUIVALENCE 

( OX ( 1 ) , 

C ( 1951 ) ) , 

< DX < 20 ) 

C( 1970) ) 

EQUIVALENCE 

(Horn. 

Cl 2041 ) ) t 

(H0(90) » 

CI2130) ) 

EQUIVALENCE 

<sm. 

C ( 2131 > > • 

<S(90) » 

C( 2220) ) 

EQUIVALENCE 

IXU>. 

Ct 2221 ) ) , 

(Xt20>, 

0 2240)) 

EQUIVALENCE 

( FORMLA! 1) 

» CI2221 ) ) , 

( FORMLA ( 18 ) 

»C ( 2238 ) ) 

EQUIVALENCE 

(DELTA(l), 

C( 2241) ) » 

(DELTA( 20 ) » 

C (2260 ) ) 

EQUIVALENCE 

(Bom. 

C ( 2261 ) ) , 

(B0( 15) , 

C (2275 > ) 

EQUIVALENCE 

(PO. 

C ( 2276 ) ) » 

(HSUBO. 

C ( 2277 ) ) 

EQUIVALENCE 

(SO, 

C ( 2278 ) ) » 

tT LN, 

Ct 2279) ) 

EQUIVALENCE 

(T, 

C ( 2280 ) ) » 

(AAY LN, 

C ( 2261 ) ) 

EQUIVALENCE 

( AAY , 

C ( 2282 ) ) , 

(CPSUM, 

C ( 2283 » ) 

EQUIVALENCE 

(HC, 

C( 2284 ) ) t 

(TC LN, 

C ( 2285) ) 

EQUIVALENCE 

(PCPC 1) » 

C ( 2286 ) ) » 

(PCP ( 25 ) » 

C( 2310) ) 

EQUIVALENCE 

( PROD 1 1 > , 

Cl 2311 ) ) , 

t PROD 13). 

Cl 2313)) 

EQUIVALENCE 

<DATUM( 1 > 

C(2311>) t 

(DATUM! 3 ) , 

C(23l3) ) 

EQUIVALENCE 

(PC. 

C ( 2314 ) ) » 

(TC. 

Ct 2315 ) ) 

EQUIVALENCE 

( IPROB. 

C ( 2316 ) 1 , 

( IFIXT. 

C( 2317) ) 

equivalence 

( IHS* 

CI2318) >, 

(ICOND. 

C< 2319) ) 

EQUIVALENCE 

USYM, 

C 1 2320) ) » 

t 1 PROD , 

Ct 2321) ) 

EQUIVALENCE 

( IDID, 

C< 2322 ) ) » 

(LDRUM. 

C( 2323 ) ) 

equivalence 

( IDRM. 

C (2323 ) ) . 

(KDRUM, 

CC 2324 > > 

EQUIVALENCE 

(L» 

C (2325 ) ) , 

(LI, 

C ( 2326 ) ) 

EQUIVALENCE 

(M, 

0232?)), 

(Ml, 

Cl 2328 ) ) 

equivalence 

(N. 

C ( 2329 ) ) » 

tlQ, 

0 2330) ) 

EQUIVALENCE 

(101, 

C( 2331 ) ) * 

(102, 

C ( 2332 ) 

EQUIVALENCE 

( IQ3. 

C( 2333 ) ) » 

(KMAT » 

C(2334) ) 

EQUIVALENCE 

(IMAT. 

C( 2335 ) ) » 

1 IUSE, 

CC 2335 ) 1 

EQUIVALENCE 

1 1 ADD, 

Ct 2336) ) » 

t IT NUMB, 

Cl 2337) ) 

EQUIVALENCE 

(ITAPE. 

C ( 2338 ) ) » 

<P» 

C< 2339) ) 

EQUIVALENCE 

( (DEBUG, 

C(234Q ) ) » 

( IFROZ, 

CI2341)) 

DIMENSION 

G < 20,21 > » 

A(15»90)» 

EN ( 90 ) , 

EN LN( 90) 

DIMENSION 

DEL N(90), 

H0(90) » 

St 90) * 

XI20> 

DIMENSION 

DELTAI20), 

60(15), 

PCP (25). 

PROD (3) 

DIMENSION 

COEFX < 20 ) » 

DX (20) » 

FORM 1 15) , 

COEFT ( 15 , 

DIMENSION 

ELMT { 15 >» 

DATA ( 23 ) . 

DATUM ( 3 ) , 

FORMLA (18 

DIMENSION 

BOX ( 15 ) » 

BOF ( 15 ) , 

ANS(454)« 

SYSTM( 15 ) 


C 


C 


S 

blk 

ALF 

00000 

s 

RPN 

AIF 

00000) 

s 

LPN 

ALF 

00000 ( 

s 

GAS 

AL* 

OOOOOG 

s 

SOL 

ALF 

ooooos 

s 

L 10 

ALF 

OOOOOL 

s 

PLS 

ALF 

00000+ 

s 

MIN 

ALF 

00000- 

s 

E 

ALF 

OOOOOE 

s 

END 

ALF 

END 

s 

CIO 

DEC 

10 

s 

C12 

DEC 

12 


c 

c 

KION-2 
DO 1 K»1,L 
S CLA ELMT(K) 

S SUB E 

S T2E*2 

1 CONTINUE 
GO TO 3 

2 KION-1 

S CLA ELMT(K) 

S LDQ ELMTIU 

S STQ ELMT(K) 

S STO ELMT (L) 

S 3 CLA CIO 

S LRS 18 

S STO CIO 

I SOL-O 
M-0 

DO 4 J a l , 15 
DO 4 K-1.90 

4 COEFT U*K) “0.0 
DO 5 INT>1»2 

5 WRITE TAPE 13. ( (COEFT(K.JT) .K-1.15) .JT-1.90) 

REWINO 13 

WRITE DRUM LDRUM.l.A 
7 READ TAPE 1TAPE * IDATAI 1 ) ,1-1.23) 

S CLA DATA ( 1 ) 

S SUB END 

S T2E*171 

C 

C UNPACK THE .BCD FORMULA FOR THE PRODUCT 

C 

DO 16 1-1.2 


0433 

0434 

0435 

0436 

0437 

0438 

0439 

0440 

0441 

0442 

0443 

0444 

0445 

0446 

0447 

0448 

0449 

0450 

0451 

0452 

0453 

0454 

0455 

0456 

0457 

0458 

0459 

0460 

0461 

0462 

0463 

0464 

0465 

0466 

0467 

0468 

0469 

0470 

0471 

0472 

0473 

0474 

0475 

0476 

0477 

0478 

0479 

0480 

0481 

0482 

0483 

0484 
0465 

0486 

0487 

0488 

0489 

0490 

0491 

0492 


0493 

0494 

0495 

0496 

0497 
0496 

0499 

0500 

0501 

0502 

0503 

0504 

0505 

0506 

0507 

0508 

0509 

0510 

0511 

0512 

0513 

0514 

0515 

0516 

0517 

0518 

0519 

0520 

0521 

0522 

0523 

0524 

0525 

0526 

0527 

0528 

0529 

0530 

0531 

0532 

0533 

0534 

0535 

0536 

0537 

0538 

0539 

0540 

0541 

0542 

0543 

0544 
0543 

0546 

0547 

0548 

0549 

0550 

0551 

0552 



16 DATUM I I >=DATA< I) 

J»1 
1=1 
13 K-0 
S 17 SSP 
S CLM 
S LDQ DATUM< I ) 

S LGL 6 
S STO FORMLA (J) 

S STO DATUM ( I ) 

J-J+l 

S TXH*21 * I .<) »4 
K-K+l 
60 TO 17 

S 21 TXH*25,(l)tl 
1 = 1 + 1 
GO TO 13 
C 

C BEGIN SEARCH FOR FIRST NON BLANK ALPHANUMERIC CHARACTER 

C 

S 2b LXO C22./J) 

S 29 SXD J»(J) 

S . CLA FORMLAI J ) 

S SUB 8LK 
S TNZ*35 

S TIX*29*(J),1 

30 WRITE OUTPUT TAPE 6*31 » (DATA f J ) * J=1 *3) 

31 FORMAT (14H THE FORMULA 3A6.33H IS INCORRECT ON THE MASTER TAPE) 
S TRA*7 

S 35 AOD BLK 
S SUB RPN 
S TNZ*30 
J-J-l 

S CLA FORMLAI J ) 

S SUB GAS 
S TZE*39 

S AOD GAS 
S SUB SOL 
S TZE*41 
S ADD SOL 
S SUB L 1 0 
S TZE*41 
S . TRA+30 
39 I TYPE=1 
S TRA*47 
'41 I TYPE=2 
A 7 J=J-1 

S CLA FORMLAI J) 

S SUB LPN 
S TNZ*30 
J*J-1 
C 

C OBTAIN AND STORE THE FORMULA NUMBERS AIK,J) 

C 

DO 48 K-1,15 
48 FORMIO-O.O 
. 51 NLSW= 1 
NUMB*0 
55 ICNT-0 
57 JCNT-J— ICNT 


0555 

0556 

0557 

0558 

0559 

0560 
056 2 

0562 

0563 

0564 

0565 

0566 

0567 

0568 

0569 

0570 

0571 

0572 

0573 

0574 

0575 

0576 

0577 

0578 

0579 

0580 

0581 

0582 

0583 

0584 

0585 

0586 

0587 

0588 

0589 

0590 

0591 

0592 

0593 

0594 

0595 

0596 

0597 

0598 

0599 

0600 
0601 
0602 

0603 

0604 

0605 

0606 
0607 
0606 

0609 

0610 
0611 
0612 


IF IJCNT) 30*81*59 
S 59 CLA FORMLA IJCNT) 

S SUD CIO 

S TPL*67 

60 TO (63*85) *NLSW 
63 ICNT-ICNT+1 
GO TO 57 

67 GO TO (69*63) *NLSW 
S 69 CLA ICNT 
S T2E+330 

IF IICNT-2) 77*73*30 
330 IF (KION-1 1 30*333,30 
333 NLSW-2 
GO TO 57 

S 73 LDQ FORMLAI J-l) 

S MPY CIO 

S LLS 18 

S STQ NUMB 

S 77 CLA FORMLAI J) 

S LLS 18 

S AOD NUMB 

S STO NUM8 

. VALUE-NUMB 
J= J— ICNT 
NLSW-2 
GO TO 55 

81 GO TO (30*85). NLSW 
S 85 CLA ICNT 
S TZ£*30 

S STZ SYMBL 

IF (NUMB) 86*95*86 
86 IF (ICNT-2) 93,89.30 
S 89 LDQ FORMLA (J-l) 

S LLS 41 

S STO SYMBL 

S 93 CLA SYMBL 

S ADD FORMLAI J) 

S STO SYMBL 

GO TO 107 

95 IF (JCNT) 30*30,96 
S 96 CLA FORMLAI J) 

S SUT PLS 
S TNZ*97 

FORM(L)“ -ICNT 
60 TO 109 
S 97 ADO PLS 
S SUB MIN 
S TNZ+30 

FORM(L)« ICNT 
GO TO 109 
107 DO 111 K*1 »L 
S CLA SYMBL 
S SUB ELMT(K) 

S TZE*105 
Hi CONTINUE 
GO TO 7 

105 FORM(K) -VALUE 
109 J* J-1CNT 

IF (J) '30,121,51 
121 IF ( I TYPE-1 ) 30,133*137 


0613 

0614 

0615 

0616 

0617 

0618 

0619 

0620 
0621 
0622 

0623 

0624 

0625 

0626 

0627 

0628 

0629 

0630 

0631 

0632 

0633 

0634 

0635 

0636 

0637 

0638 

0639 

0640 

0641 

0642 

0643 

0644 

0645 

0646 

0647 

0648 

0649 

0650 

0651 

0652 

0653 

0654 

0655 

0656 

0657 

0658 

0659 

0660 
0661 
0662 

0663 

0664 

0665 

0666 

0667 

0668 

0669 

0670 

0671 

0672 



133 M*M+1 

GO TO 141 
137 J*90-IS0L 
ISOL-ISOL+1 

141 READ DRUM LDRUM » 1 ♦ A 
145 DO 147 K«1»L 
AIK.Jl^FORMO;) 

147 CONTINUE 

WRITE DRUM LDRUM. 1*A 
C 

C WRITE THERMODYNAMIC DATA ON TAPE ORDERED 8Y INTERVAL 
C 

151 IT«0 

S CL\ DATAIl) 

S LDO DATA! 3 > 

S STO DATAIl) 

S LDO DATA! 2) 

S STO DATA! 2) 

S STQ 0ATAI3) 

DO 163 INT «1»2 

READ TAPE 13. ( ICOEFTOC.JT) »K«1»15) »JT»1.90) 

DO 155 K=l»5 
COEFT ( K. J) B DATA( K ) 

155 CONTINUE 

DO 159 K=*6,14 
K 1 T= K+IT 

COEFT ( K» J) “DATA! KI T ) 

159 CONTINUE 
IT=IT+9 

WRITE TAPE 14. ( I COEFT < K , JT ) ,K=1 ,15 > » JT=1 .90 ) 

163 CONTINUE 
REWIND 13 
REWINO 14 
S CLA 13 

S LDO 14 

S STO 14 

S STQ 13 

GO TO 7 
C 

C GO TO NEXT MOLECULE 

C 

C 

C ELIMINATE GAP BETWEEN GASES AND CONDENSED PHASES 
C 

171 N=»M+ISOL 
JEER-1 

173 IF IN-90) 175.224.181 
175 IF 1 1 SOL ) 177.224.184 
177 JEER*2 

GO TO 224 

181 WRITE OUTPUT TAPE 6.182 

162 FORMAT (45H TOO MANY REACTION PRODUCTS FOUND ON THE TAPE) 
JETR-2 
GO TO 224 
184 DO 187 1=1.2 

READ TAPE 13. ( (COEFT(K.JT) .K-1.15) .UT=1.90) 

KK-90-IS0L 

DO 186 J 3 1 . 1 SOL 

MJ»M+J 


0673 

0674 

0675 

0676 

0677 

0678 

0679 

0680 
0681 
0682 

0683 

0684 

0685 

0686 

0687 

0688 

0689 

0690 

0691 

0692 

0693 

0694 

0695 

0696 

0697 

0698 

0699 

0700 

0701 

0702 

0703 

0704 

0705 

0706 

0707 

0708 

0709 

0710 

0711 

0712 

0713 

0714 

0715 

0716 

0717 

0718 

0719 

0720 

0721 

0722 

0723 

0724 

0725 

0726 

0727 

0728 

0729 

0730 

0731 

0732 


DO 185 K*1.15 0734 

COEFT I K»MJ)=COEFT ( K »K J ) 0735 

185 CONTINUE 0736 

186 CONTINUE 0737 

WRITE TAPE 14, I (COEFTIK.JT) »K=1»15) .JT a l»90) 0738 

187 CONTINUE 0739 

REWIND 13 0740 

REWIND 14 0741 

215 READ DRUM LDRUM, 1 .A 0742 

DO 219 J S 1 » I SOL 0743 

MJ-M+J 0744 

KJ«XK+J 0745 

DO 217 K“1 .15 0746 

AIK.MJ )*A(K»KJ ) 0747 

217 CONTINUE 0748 

219 CONTINUE 0749 

WRITE DRUM LDRUM, l.A 0750 

GO TO 225 0751 

S 224 CLA 13 0752 

S LDQ 14 0753 

S STO 14 0754 

S STQ 13 0755 

225 RETURN 0756 



c 

c 
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s 

s 

s 

s 

s 

s 

s 

s 

s 

s 

s 

s 

s 

s 

s 

s 

s 


s 

s 

s 

s 

s 

s 

s 

s 

s 

s 


SUBROUTINE BYPASS (J*rARGI 0757 


0758 

0759 


COMMON C 
EQUIVALENCE 

CGI 1 > 

C ( 1 ) )« 

(G (420) « 

0 420) ) 

0760 

0761 

EQUIVALENCE 

(FORMUI* 

Cfl) )♦ 

(F0RM(I5I » 

01511 

0762 

EQUIVALENCE 

(ELMT(l) * 

C( 16) ) * 

(ELMT(IS) * 

0 30) ) 

0763 

EQUIVALENCE 

(DATA III . 

C( 31 ) ) » 

( DATA ( 23 ) * 

0 53) > 

0764 

EQUIVALENCE 

(All), 

C(421) )» 

(AC 1350) * 

C C 1770) » 

0765 

EQUIVALENCE 

(C0EFTC1) 

C(421) )* 

(C0EFK1350), 0 1770)) 

0766 

EQUIVALENCE 

(ANSI!)* 

C(422 ) )* 

{AN$ 1 454 ) i 

08 74 ) ) 

0767 

EQUIVALENCE 

(HSUM* 

C(424) )* 

( SSUM * 

0425) ) 

0768 

EQUIVALENCE 

( WTMOL, 

CI426) )» 

(CP, 

0427)1 

0769 

EQUIVALENCE 

( DLMPT ♦ 

C ( 428 ) )* 

(DLMTP* 

0 429) ) 

0770 

EQUIVALENCE 

(GAMMA* 

C ( 430 ) ) * 

(ARATIO, 

0431)) 

0771 

EQUIVALENCE 

(VMACH, 

C f 432) ) * 

(SP IMP, 

0433) J 

0772 

EQUIVALENCE 

(VACI* 

C(434) ) * 

(CF, 

0436)) 

0773 

EQUIVALENCE 

( RHOI « 

C<437) ), 

(RHOVAC* 

0 438) ) 

0774 

EQUIVALENCE 

EQUIVALENCE 

(RHO, 
(T PI* 

CI439) ) 

C (440) ) « 

(PI I* 

0441)) 

0775 

0776 

EQUIVALENCE 

(EP PI* 

C( 442 ) ) » 

(AW PI* 

0 443)) 

0777 

EQUIVALENCE 

EQUIVALENCE 

(T ETA, 
(ETA I* 

C(445) ) 

C ( 446 ) ) * 

(EP ETA, 

C ( 447 ) ) 

0778 

0779 

EQUIVALENCE 

(AW ETA, 

C ( 448 ) ) * 

(T SIG, 

0450) ) 

0780 

EQUIVALENCE 

(SIG I. 

C (451 ) > » 

(EP SIG, 

C( 452 ) ) 

0781 

EQUIVALENCE 

EQUIVALENCE 

(AW SIG* 
(EN ( 1 ) ♦ 

C(453n 
C ( 1771 ) ) * 

( EN (90 ) * 

0 1860)) 

0782 

0783 

EQUIVALENCE 

( BOX ( 1 > * 

C ( 1771 ) ) » 

(BOX ( 15 ) * 

01785)1 

0784 

EQUIVALENCE 

(BOF(l). 

C ( 1786 ) ) » 

( BOF ( 15 ) * 

0 1800) ) 

0785 

EQUIVALENCE 

<HX» 

C ( 1801 ) ) * 

(HF* 

01802) > 

0786 

EQUIVALENCE 

( VXPLS* 

C( 1803 ) ) » 

(VXMIN, 

C( 1804 > > 

0787 

EQUIVALENCE 

( VFPLS* 

C ( 1805 ) ) * 

(VFMIN* 

01806) ) 

0788 

EQUIVALENCE 

(EN LN( 1 ) 

C ( 1861 ) ) * 

(EN LN ( 90 ) * 

01950)) 

0789 

EQUIVALENCE 

(DEL NCI) 

C(195l))» 

(DEL N ( 90 ) * 

020*0) ) 

0790 

EQUIVALENCE 

(COEFX(l) 

C ( 1951 ) ) * 

(COEFX( 20 ) 

C( 1970) ) 

0791 

EQUIVALENCE 

( DX Cl), 

C( 1951 ) ) * 

CDX (20 ) * 

Cl 1970) ) 

0792 

EQUIVALENCE 

(HOI 11* 

C( 2041 ) ) * 

(HO (90) * 

02130) ) 

0793 

EQUIVALENCE 

(S(l) » 

C ( 2131 )) , 

(S(90) , 

02220) ) 

0794 

EQUIVALENCE 

( X ( 1 > * 

0 2221 ) ) * 

(X( 20 ) * 

0 2240)1 

0795 

EQUIVALENCE 

( FORMLA ( 1 ) * C(2221)l* 

(FORMLA (18) 

*C( 2238 ) ) 

0796 

EQUIVALENCE 

(DELTA(l) 

0 2241))* 

< DELTA! 20 ) 

02260) ) 

0797 

EQUIVALENCE 

<80(11* 

02261) J , 

(60(151* 

O 2275 1 1 

0 798 

EQUIVALENCE 

IPO* 

0 2276))* 

(HSUBO. 

02277) ) 

0799 

EQUIVALENCE 

(SO* 

02278) ) * 

(T LN. 

02279) ) 

0800 

EQUIVALENCE 

(T» 

02280) > * 

(AAY LN* 

02281)1 

0801 

EQUIVALENCE 

( AAY » 

02282)) , 

(CPSUM* 

02283)1 

0802 

EQUIVALENCE 

<KC. 

02284))* 

(TC LN, 

0 2285)1 

0803 

EQUIVALENCE 

(PCP(l) , 

02286)1 * 

(PCPI25)* 

02310) ) 

0804 

EQUIVALENCE 

( PROD ( 1 ) * 

0 2311)) , 

( PROD ( 3 ) , 

0 23131 1 

0805 

EQUIVALENCE 

( DATUM! 1 ) 

0 2311))* 

(DATUM! 3) * 

0 2313) » 

0806 

EQUIVALENCE 

(PC* 

02314) ) » 

(TC, 

0 2315 ) ) 

0807 

EQUIVALENCE 

( rpRoa* 

02316))* 

llFIXTt 

0231?) ) 

0808 

EQUIVALENCE 

( IHS* 

C ( 2318 ) ) * 

( ICOND* 

02319)) 

0809 

EQUIVALENCE 

( ISYM* 

02320)) * 

( IPROD* 

02321) » 

0810 

EQUIVALENCE 

( 1DID* 

02322)) * 

(LDRUM. 

0 2323) ) 

0811 

EQUIVALENCE 

( IDRM, 

02323) ) « 

(KDRUM* 

02324) > 

0812 

EQUIVALENCE 

IL* 

02325)) » 

(LI* 

02326) ) 

0813 

EQUIVALENCE 

(M* 

02327) )« 

(Ml, 

O 2328 ) ) 

0814 

EQUIVALENCE 

( N» 

02329) >♦ 

< IQ* 

C ( 2330 ) ) 

0815 

EQUIVALENCE 

( IQ1* 

02331) ) * 

(IQ2, 

02332) ) 

0816 

EQUIVALENCE 

1 IQ3 » 

0 2333))* 

(KMAT* 

C (2334) ) 

0817 

EQUIVALENCE 

( IMAT* 

02335) ) * 

( IUSE * 

02335) ) 

0818 

EQUIVALENCE 

( I ADD. 

02336)) ♦ 

(ITNUMBt 

C( 2337) ) 

0819 

EQUIVALENCE 

( ITAPE* 

C ( 2338 } ) , 

(P* 

02339) ) 

0820 

EQUIVALENCE 

( IDEBUG* 

02340))* 

( IFROZ* 

02341) J 

0821 

DIMENSION 

6(20*21), 

A ( 15 *90 ) • 

EN( 90) * 

EN LNI90) 

0822 

0823 

DIMENSION 

DEL N ( 90) ♦ 

H0I90) » 

S(90 ) * 

X ( 20 ) 

0824 

DIMENSION 

DELTA(20) * 

80(15) * 

PCP < 25 ) » 

PROD (3) 

0825 

DIMENSION 

C0EFX(20) * 

DX{ 20 ) , 

FORM! 15 ) * 

COEFT ( 15,90 > 

0826 

DIMENSION 

ELMT ( 15 ) » 

DATA( 23) * 

DATUM ( 3 ) * 

FORMLA (18) 

0827 

DIMENSION 

B0XU5), , 

BOF( 15), 

ANSI 454) * 

SYSTM(IS) 

0828 

I ARG“ 1 MEANS TEST ONLY, 

I ARG=2 MEANS ELIMINATE 

A SPECIES* I ARG=3 

0829 

0830 

0831 


MEANS AOD ANOTHER SPECIES 0832 


0833 

LXO J,(J) 0834 

TXL*2 * ( J ) » 35 0835 

TXL*1 ♦ ( J ) *70 0836 

K"3 0837 

TIX*3 r (J) *70 083 6 

1 K»2 0839 

TIX*3 * { J ) » 35 0840 

2 K=1 0841 

3 IF < IARG-2 I 4»5*7 0842 

4 1 PRODn 2 0843 

CLA PROD flO 0844 

LRS 35* (J) 0845 

LBT 0846 

TRA*10 0847 

I PROD=l 0848 

TRA+10 0849 

5 CLA PROD ( K I 0850 

LRS 35* (J) 0851 

LBT 0852 

TRA*6 0853 

TRA*I0 0854 

6 COM 0855 

LRS 1 0856 

COM 0857 

LLS 36, (J) 0858 

STO PROD (>0 0859 

CLA M 0860 

SUB J 0861 

TPL*10 0862 

I03«*I02 0863 

IQ2“IQ1 0864 

101=10 0865 

10 =10-1 0866 

TR \*9 0867 

7 CLA PROD (K) 0868 

LRS 35. (J) 0869 

LBT 0870 

TRA*10 0871 

COM 0872 

LRS 1 0873 

COM 0874 

LLS 36 ?( J) 0875 

STO PROD(K) 0876 


S 

S 

S 


CLA M 

sua j 

TPL*10 
IQ =101 
101 C I 02 
102=103 
103=103+1 
9 SENSE LIGHT 4 
10 RETURN 


0881 

0882 

0883 

0884 

0885 



58 



SUBROUTINE INPUT 




0866 

c 






0887 

c 

COMMON C 





0888 

0889 


EQUIVALENCE (AT0M(1),C( 1111) ) ,<ATOM( 303). C (1413) > 

0890 


EQUIVALENCE 

(G( 1) * 

Clllli 

(6(420 W 

0(420) ) 

0891 


EQUIVALENCE 

< FORM ( 1 » » 

cun. 

(FORM ( 15 ) ♦ 

0(15)) 

0892 


EQUIVALENCE 

(ELMT(l). 

C ( 16 ) ) » 

(ELMT (15) » 

0(30)) 

0893 


EQUIVALENCE 

( DATA ( 1 ) . 

com » 

(DATA (23) * 

0(53) ) 

0894 


EQUIVALENCE 

( A( 1 ) , 

C(421) ) » 

(A< 690), 

0(1110) ) 

0895 


EQUIVALENCE 

(COEFT(l). 

C ( 42 1 ) ) ♦ 

(COEFT ( 1350 

.CL1770)) 

0896 


EQUIVALENCE 

(ANS<1) . 

C(421>). 

( ANS ( 454 ) » 

0(874)) 

0897 


EQUIVALENCE 

(HSUM. 

C(424> )♦ 

(SSUM, 

0(425)) 

0898 


EQUIVALENCE 

( WTMOL » 

C(426 ) ) » 

(CP, 

0(427)) 

0899 


EQUIVALENCE 

( DLMPT . 

C(428 ) ) , 

(DLMTP, 

0(429)) 

0900 


EQUIVALENCE 

(GAMMA, 

C ( 430 ) ) , 

(ARATIO. 

0(431 ) ) 

0901 


EQUIVALENCE 

( VMACH. 

C ( 432 ) ) » 

(SP IMP. 

0(433)) 

0902 


EQUIVALENCE 

(VAC I. 

C ( 434 ) ) » 

(OF, 

0(436)) 

0903 


EQUIVALENCE 

( RHOI , 

C ( 437 ) ) ♦ 

(RHOVAC. 

0(438) > 

0904 


EQUIVALENCE 

(RHO, 

C<439) > 



090 


EQUIVALENCE 

(T PI, 

C( 440) )» 

(PI I. 

0(441)) 

0906 


EQUIVALENCE 

(EP PI, 

C ( 442 ) ) , 

(AW PI. 

0(443)) 

0907 


EQUIVALENCE 

(T ETA, 

C ( 445 ) ) 



0908 


EQUIVALENCE 

(ETA 1, 

C ( 446 ) ) , 

(EP ETA. 

0(447) ) 

0909 


EQUIVALENCE 

(AW ETA. 

C ( 448 ) ) » 

(T SIG. 

0(450) ) 

0910 


EQUIVALENCE 

(SIG I, 

C ( 451 ) ) » 

(EP SIG, 

0(452)) 

0911 


EQUIVALENCE 

1 AW SIG, 

CI453) ) 



0912 


EQUIVALENCE 

( EN ( 1 ) , 

C ( 1771 ) ) » 

( EN (90) . 

0(1860) ) 

0913 


EQUIVALENCE 

IBOX(l). 

C ( 1771 ) > , 

(BOX ( 15 ) , 

0(1785)) 

0914 


EQUIVALENCE 

( BOF ( 1 ) ♦ 

0(1786) ) , 

(BOP ( 15). 

0(1800) 1 

0915 


EQUIVALENCE 

(HX. 

Cl 180)1 ) • 

(HF, 

C( 1802) ) 

0916 


EQUIVALENCE 

(VXPLS. 

CI1803)) » 

IVXMIN, 

0(1804)) 

0917 


EQUIVALENCE 

( VFPLS, 

0(1805)). 

(VFMIN, 

0(1806) ) 

0918 


EQUIVALENCE 

(EN LN( 1 > , 

C ( 1861 ) ) , 

(EN LN ( 90 > ♦ 

C( 1950) ) 

0919 


EQUIVALENCE 

(DEL N ( 1 ) » 

0(1951)), 

(DEL N ( 90 » » 

0(2040) ) 

0920 


EQUIVALENCE 

(COEFX(l) 

0(1951)) » 

{ COEFX( 20 ) » 

C { 1970 ) ) 

0921 


EQUIVALENCE 

(oxm. 

C( 1951 ) > » 

(0X120) » 

C( 1970) ) 

0922 


EQUIVALENCE 

( HO ( 1 ) » 

C ( 2041 ) ) » 

(HO (90) » 

0(2130) ) 

0923 


EQUIVALENCE 

(S(l) , 

0(2131) )» 

(S( 90 ) , 

0(2220) ) 

0924 


EQUIVALENCE 

r x ( i ) • 

0(2221) >, 

(X < 20 ) , 

C ( 2240 ) ) 

0925 


EQUIVALENCE 

< FORMLA (1 

» 0(2221)1 . 

(FORMLA (18) 

C ( 2238 ) ) 

0926 


EQUIVALENCE 

(OELTA(l) 

Cl 2241 ) l , 

<OELTA( 20) » 

C( 2260) » 

0927 


EQUIVALENCE 

(80(1), 

0(2261)) ♦ 

(BO ( 15 1 * 

0(2275) ) 

0928 


EQUIVALENCE 

<P0. 

C<2276>) , 

(HSUBO. 

0(2277) ) 

0929 


EQUIVALENCE 

(SO. 

0(2278)) , 

(T LN, 

0(2279) ) 

0930 


EQUIVALENCE 

(T, 

0(2280) ) , 

(AAY LN. 

0(2281) ) 

0931 


EQUIVALENCE 

(AAY, 

C ( 2262 ) ) » 

(CPSUM, 

0(2283) > 

0932 


EQUIVALENCE 

(HC. 

0(2284) )» 

(TO LN. 

0(2285) ) 

0933 


EQUIVALENCE 

(PCP(l) » 

C ( 2286 ) ) » 

(POP (25) » 

0(2310) > 

0934 


EQUIVALENCE 

( PROD ( 1 ) ♦ 

0(2311) ) » 

(PROD( 3 ) » 

0(2313) ) 

0935 


EQUIVALENCE 

(DATUM(l) 

0(2311) ) , 

( DATUM ( 3 ) » 

0(2313) ) 

0936 


EQUIVALENCE 

(PC. 

0(2314) ) , 

(TO. 

0(2315) ) 

0937 


EQUIVALENCE 

( IPROB, 

0(2316)), 

( IFIXT. 

0(2317) ) 

0936 


EQUIVALENCE 

< IHS. 

0(2318) ) , 

(ICOND, 

0(2319) ) 

0939 


EQUIVALENCE 

( ISYM. 

0(2320)) , 

( IPROD. 

Cl 2321 ) ) 

0940 


EQUIVALENCE 

( IDID, 

0(2322)), 

(LDRUM. 

0(2323) ) 

0941 


EQUIVALENCE 

( IDRM, 

0(2323)) , 

(KDRUM, 

0(2324) > 

0942 


EQUIVALENCE 

(L, 

0(2325) ), 

(LI. 

0(2326)1 

0943 


EQUIVALENCE 

( M, 

0(2327) ) , 

(Ml. 

0(2328) ) 

0944 


EQUIVALENCE 

<N, 

C ( 2329) ) » 

(IQ, 

0(2330) ) 

0945 


EQUIVALENCE 

( IQ1, 

0(2331) ) » 

(IQ2» 

0(2332) l 

0946 


EQUIVALENCE 

( 103. 

0(2333)1 » 

( KMAT , 

0(2334) ) 

0947 


EQUIVALENCE 

( IMAT, 

0(2335) 1 » 

(IUSE, 

0(2335) ) 

0948 


EQUIVALENCE 

(IADD, 

0(2336) )» 

( ITNUMB. 

0(2337)) 

0949 


EQUIVALENCE 

( ITAPE, 

0(2338) ) » 

(P, 

0(2339)) 

0950 


EQUIVALENCE 

( I DEBUG. 

0(2340) )» 

( IFR02, 

0(2341)) 

0951 

c 

DIMENSION 

G ( 20.21) , 


EN (90 ) » 

EN LN(90) 

0952 

0953 


DIMENSION 

DEL N ( 90) » 

H0( 90 ) » 

S( 90 ) » 

X ( 20 1 

0954 


DIMENSION 

DELTA ( 20 ) , 

80(15) » 

POP 125) , 

PROD ( 3 ) 

0955 


DIMENSION 

C0EFX(20) ♦ 

OX ( 20 ) ♦ 

F0RM<15>. 

COEFT ( 15.90) 

0956 


DIMENSION 

ELMT 1 15) » 

DATA (23) , 

DATUM13), 

FORMLA (18) 

0957 


DIMENSION 

BOX ( 15 ) » 

BOF (15 ) , 

ANS (454). 

SYSTMf 15 ) 

0958 


DIMENSION A (15.46) » ATOM ( 101 * 3 ) »ANAME ( 5 ) .ANUM ( 5 ) 


0959 

c 






0960 

c 






0961 

c 

SUBROUTINE TO COMPUTE PROPELLANTS 



0962 

c 






0963 

SOX ALF 0 





0964 


READ DRUM 4 

485 .JEAN .ATOM 



0965 


IF(JEAN-222)5I»50,51 




0966 


51 CALL BCREAO(ATOM( 101.3) 

ATOKU.U) 



0967 


50 DO 52 1=1.15 




0968 

S 

STZ ELMT ( I ) 





0969 

S 

STZ BOX (I) 





0970 

s 

STZ BOF(I) 





0971 


DO 52 J=l,46 




0972 

s 

52 STZ A(I.J) 





0973 

S 

STZ TOTAL 





0974 


NF=0 





0975 


N0=0 





0976 


NE=0 





0977 


WRITE OUTPUT TAPE 6.400 




0978 


400 FORMAT (8H1 

INPUT//) 




0979 


100 READ INPUT 

TAPE 7, 1 ♦ ( ANAME ( 1 1 .ANUM( I ) , I -1 ,5 ) . PECWT.ENTH, 

0980 


2DEN. TEMP »ETHR. DENS 




0981 


1 FORMAT ( 5< A2 

,F7.5),F8.5»F9.5,A1.F8.5 

.A1.F8.5) 


0982 


IF(ANUMfl) >99.200.99 




0983 


99 WRITE OUTPUT TAPE 6.402 

( ANAME ( IltANUMI I J ,I«1 .5). PECWT.ENTH, DEN, 

0984 


2TEMP.ETHR.DENS 




0985 


402 FORMAT (IX. 

51A2.1X.F7.4 

»2X) .F8.4.2X 

♦F9.2.2X.A1, 

2X.F8.3.2X, 

0986 


2A1.3X.F8.5) 





0987 


DO 9 1=1.5 





0988 


9 TOTAL-TOTAL+ANUMd) 




0989 


I F ( ETHR-OX >11.10.11 




0990 


10 NO-NO+1 





0991 


KK=NO 





0992 


KK*<=NO 





0993 


NN»31 





0994 


GO TO 12 





0995 


11 NF-NF+1 





0996 


KK-NF+15 





0997 







0998 


NN-32 





0999 


12 DO 98 J“1 » 5 1000 

IF ( ANUM ( J ) ) 96 » 97 *'96 1001 

96 DO 31 1=1*15 1002 

IFtANAME,! JJ-ELMTIII) 21.20.21 1003 

20 NHUT=0 1004 

33 KT*1 1005 



60 TO 30 1006 

21 IF { ELMT (1)1 31*22.31 1007 

22 ELMT ( I ) =ANAME I J ) 1008 

NE*NE+1 1009 

NHUT-1 1010 

60 TO 33 1011 

31 CONTINUE 1012 

30 IF(NHUT) 14*15*14 1013 

14 00 16 1=1,101 1014 

S CLA ATOM! 1*1) 1025 

S SUB ANAME(J) 1016 

S TNZ*16 1017 

17 II = I 1018 

60 TO 18 1019 

26 CONTINUE 2020 

WRITE OUTPUT TAPE 6.199 1021 

199 FORMAT <32H0 THERE IS A 8AD PROPELLANT CAR01 1022 

L“”l 1023 

RETURN 1024 

18 A(NE»37)=AT0Mt 11,2) 1025 

A(NE,38)=AT0M( 11,3) 1026 

15 A ( KT » KK ) “ANUM ( J ) 1027 

98 CONTINUE 1028 

97 A ( KKK.NN ) =ENTH 1029 

A(KKK,NN+2)»PECWT 1030 

A(KKK,NN+4>»DSNS 1031 

A(KKK.NN+10)=0EN 1032 

AtKKK,NN+12)=TEMP 1033 

A(KKK.NN+14>=ETHR 1034 

60 TO 100 1035 

200 IF ( NE 1 202*201*202 1036 

201 L=0 1037 

RETURN 1038 

202 JEAN=222 1039 

S STZ WX 1040 

S STZ WF 1041 

S STZ HX 1042 

S STZ HF 1043 

S STZ RHOX 1044 

S STZ RHOF 1045 

S STZ VXPLS 1046 

S STZ VXMIN 1047 

S STZ VFPLS 1048 

S STZ VFMIN 1049 

00552 J=l*NO 1050 

00552 1=1. NE 1051 

552 A( J,39)=AI J»39)+A( I »37)*ACI ,U ) 1052 

DO 53 J=1 ,NF 1053 

DO 53 I=1.NE 1054 

53 At J,40)=A(J.40>+A( 1 ,37)*A( I.J+15) 1055 

00550 1=1. NO 1056 

54 HX=HX+A (I.31)*A(I»33)/A(I»39) 1057 

550 WX=WX+A(I*33> 1058 

D0551 1=1. NF 1059 

55 HF=HF+A( I.32)*At I » 34) /A 1 1 ,40) 1060 

551 WF=WF+A( 1.34) 1061 

S STZ ACX 1062 

S .STZ ACF 1063 

S STZ AMX 1064 

S STZ AMF 1065 


DO 42 1=1, NO 

ACX=ACX+A( I, 35) *A (I, 33) /A (I ,39) 

42 AMX=AMX+A( I ,33)/A( 1*39) 

ACX=ACX/WX 

AMX=WX/AMX 

DO 43 I *1 *NF 

ACF= ACF+A (I *36 ) *A ( I , 34 ) /A ( I .40 ) 

43 AMF=AMF+At I ,34) /At I ,40) 

ACF=ACF/WF 

AMF =WF/AMF 

WRITE DRUM 4.1516, ACX, ACF»AMX,AMF 

HX=HX/WX 

HF=HF/WF 

DO 60 1=1, NO 

IFIAII,35))60, 71.60 

60 RHOX=RHOX+A 1 1 ♦ 33 ) /A( I .35 ) 

RHOX = W X /RHOX 

73 DO 61 I =1 »NF 

IF(A( 1,36) >61.71.61 

61 RHOF=RHOF+AU ,34)/A(1 .36) 

RHOF=WF/RHOF 

60 TO 74 
S 71 STZ RHOX 
S 72 STZ RHOF 

74 DO 57 1=1, NE 
DO 56 J«l.NO 

56 BOX (I) =80X1 1 ) +A ( I » J )*A ( J. 33 ) /A( J .39 ) 

57 B0Xm=B0X(I)/WX 
DO 59 1=1, NE 

DO 58 J=1 *NF 

58 60F(J ) =B0F ( I )+A ( I » J+15 > *A< J.34 ) /At J»40 > 

59 BOF ( I ) =B0F ( I) /WF 
00 62 I»1.NE 
IFtAU, 38) >63.62.64 

64 VXPLS=VXPLS+BOX(I )*A( 1,38) 

67 VFPLS=VFPLS+BOF{ I)*AI 1,38) 

60 TO 62 

63 VXMIN=VXMIN+80X( I )*A( I ,38 ) 

66 VFMIN=VFMIN+BOFU>*A(l ,38) 

62 CONTINUE 

WRITE DRUM LDRUM, 1996 »80X ,B0F »HX , VXPLS, VXMIN ,HF , VFPLS, VFMIN 
2 .RHOX .RHOF 
DO 40 I =1 ,NO 

40 At I , 33 ) =A ( I ,33) /WX 
DO 41 I =1 »NF 

41 A(I,34)=A(I,34)/WF 
TOTAL = MODFt TOTAL. 1.0) 

IF (TOT ALU 142,1 143. 1142 

1142 KD= 1 

GO TO U44 

1143 KD=0 

1144 WRITE DRUM 4.485 .JEAN .ATOM 

WRITE DRUM 4,795. A»NF, NO. NE.ELMT.KD 

L=NE 

RETURN 


1066 

1067 

1068 

1069 

1070 

1071 

1072 

1073 

1074 

1075 

1076 

1077 

1078 

1079 
2080 
1081 
1082 

1083 

1084 

1085 

1086 
1087 
1086 

1089 

1090 

1091 

1092 

1093 

1094 

1095 

1096 

1097 

1098 

1099 

1100 
1101 
1102 

1103 

1104 

1105 

1106 

1107 

1108 

1109 

1110 
1111 
1112 

1113 

1114 

1115 

1116 

1117 

1118 

1119 

1120 



MAIN PROGRAM TWO 


COMMON C 
EQUIVALENCE 

(G<1), 

C(l)>, 

(6(420) , 

0420) ) 

EQUIVALENCE 

I FORM (1) , 

CUM, 

(F0RMU5I * 

015)) 

EQUIVALENCE 

( ELMT 11), 

Cl 161) , 

( ELMT ( 15 ) , 

030)) 

EQUIVALENCE 

IOATAI 1 ) , 

Cl 31 > ) * 

( DATA I 23 ) , 

053)) 

EQUIVALENCE 

(All), 

CI421) ) » 

I A ( 1350 ) , 

0 17701 > 

EQUIVALENCE 

I COEFT 111, 

Cl 421 ) )» 

( COEFT (1350),C(177J) ) 

EQUIVALENCE 

(ANSI 1 ) , 

CI421) )♦ 

( ANS( 454) , 

0874)) 

EQUIVALENCE 

(HSUM, 

Cl 424) ) * 

( 5SUM* 

0 425)1 

EQUIVALENCE 

(WTMOL, 

C (426 ) ), 

(CP. 

0 427) ) 

EQUIVALENCE 

I DLMPT , 

C I 428) )* 

(DLMTP, 

0 429) J 

EQUIVALENCE 

(GAMMA. 

CI430) ), 

(ARATIO, 

0 431) J 

EQUIVALENCE 

(VMACH, 

C 1 432 ) )• 

(SP IMP* 

0433) ) 

EQUIVALENCE 

(VACt, 

C I 434 ) ), 

(CF, 

0436) ) 

EQUIVALENCE 

(RHOI , 

C 1 437 ) ), 

IRHOVAC, 

0 438) J 

EQUIVALENCE 

(RHO, 

CI439) ) 



EQUIVALENCE 

(T PI , 

C I 440) ) * 

(PI I, 

0441 ) J 

EQUIVALENCE 

IEP PI, 

C 1 442 ) ) » 

(AW PI, 

0 443) ) 

EQUIVALENCE 

(T ETA, 

C I 445 ) ) 



EQUIVALENCE 

(ETA I, 

CI446) ), 

(EP ETA. 

0447) ) 

EQUIVALENCE 

(AW ETA, 

C 1 448 ) ) , 

(T SIG, 

0450) ) 

EQUIVALENCE 

(SIG I, 

C I 451 ) ) * 

(EP SIG* 

0452) ) 

EQUIVALENCE 

(AW SIG. 

CI453) ) 



EQUIVALENCE 

IENI 1), 

C 1 1771 ) ) * 

(£N ( 90 ) , 

0 1860) ) 

equivalence 

(BOX I 1 ) » 

C 1 1771 ) ) * 

(BOX ( 15 ) , 

C( 1785) ) 

EQUIVALENCE 

( BOF 1 1 ) , 

C C 1786 ) » 

(BOF ( 15 ) , 

0 1800) ) 

EQUIVALENCE 

(HX, 

C( 1801) ) , 

(HF* 

C( 1802) ) 

EQUIVALENCE 

(VXPLS. 

CI1803) ) » 

(VXMIN, 

O1804) ) 

EQUIVALENCE 

(VFPLS. 

CI1805) ) , 

(VFMIN, 

01806)1 

EQUIVALENCE 

(EN LN I 1 ) » 

CI1861) ) * 

(EN LNI90) ♦ 

01950) > 

EQUIVALENCE 

IDEL Nil), 

C 1 1951 ) ), 

(DEL N ( 90 ) , 

02040) ) 

EQUIVALENCE 

I COEFX m. 

CI1951H, 

(C0EFXI20), 

01970) 1 

EQUIVALENCE 

(DX 1 1 ) , 

CI3951 ) ) , 

(DX I 20 ) , 

O 1970) ) 

EQUIVALENCE 

t HO 1 1 ) » 

CI2041) ) , 

(HOI 90) 

02130) > 

EQUIVALENCE 

(SIl), 

C 1 2131 ) ) * 

(5(90) , 

0 2220) ) 

EQUIVALENCE 

(XIII, 

CI2221) ) * 

(X ( 20 ) * 

02240) ) 

EQUIVALENCE 

I FORMIA 1 1 ) 

C 1 2221 ) ) * 

( FORMLA (18) 

*02238) ) 

EQUIVALENCE 

(DELTA(l), 

C I 2241 ) ) , 

( DELTA! 20 ) * 

02260) ) 

EQUIVALENCE 

(B0I1), 

C t 2261 ) ) , 

(BO 1 15) * 

02275)) 

EQUIVALENCE 

IPO, 

C 1 2276 ) ) , 

(HSUBO* 

C I 2277 J ) 

EQUIVALENCE 

ISO, 

C I 2278 ) ) » 

(T LN* 

02279) 1 

EQUIVALENCE 

IT, 

C 1 2280 ) ) . 

(AAY LN* 

02281 ) ) 

EQUIVALENCE 

(AAY, 

C I 2282 ) ) , 

(CPSUM, 

02203 ) ) 

EQUIVALENCE 

IHC » 

C 1 2284 ) ) , 

(TC LN* 

02285) ) 

EQUIVALENCE 

(PCPIl). 

C 1 2286 ) ) , 

( PCP <251, 

0 23105 > 

EQUIVALENCE 

I PROD 1 1 ) » 

0 2311)), 

iPRoom, 

02313) > 

EQUIVALENCE 

(DATUM! 1 ) , 

0 2311) >, 

( DATUM m , 

0 2313)) 

EQUIVALENCE 

(PC, 

02314) ) , 

(TC* 

02315) ) 

EQUIVALENCE 

I 1PR0B, 

02316)) , 

f IF1XT, 

02317) ) 

EQUIVALENCE 

I IHS, 

02318) ), 

(ICOND, 

02319) ) 

EQUIVALENCE 

I ISYM, 

02320) ) « 

UPROD, 

02321) I 

EQUIVALENCE 

1 I D 1 0 , 

02322) ) , 

(LDRUM* 

02323) ) 

EQUIVALENCE 

I IDRM, 

02323) ) , 

( KDRUM* 

0 2324) ) 

EQUIVALENCE 

(L, 

02325)), 

(LI* 

02326) ) 

EQUIVALENCE 

(M, 

02327)) , 

(Ml* 

02328) > 

EQUIVALENCE 

IN, 

02329) ) , 

( 10* 

02330) ) 

EQUIVALENCE 

I 101, 

02331 ) ) , 

( 102, 

02332) ) 

EQUIVALENCE 

(IQ3, 

02333) )» 

( KMAT * 

0 2334) ) 


1121 

1122 

1 123 

1124 

1125 

1126 

1127 

1128 

1129 

1130 

1131 

1132 

1133 

1134 

1135 

1136 

1137 

1138 

1139 

1140 

1141 

1142 

1143 

1144 

1145 

1146 

1147 

1148 

1149 

1150 

1151 

1152 

1153 

1154 

1155 

1156 

1157 

1158 

1159 

1160 
1161 
1162 

1163 

1164 

1165 

1166 
1167 


1168 

1169 

1170 

1171 

1172 

1173 

1174 

1175 

1176 

1177 

1178 

1179 

1180 


EQUIVALENCE (IMAT, 
EQUIVALENCE ( IADDt 
EQUIVALENCE ( ITAPE, 
EQUIVALENCE (IDEBUG. 
C 

DIMENSION G(20,21>» 
DIMENSION .DEL N(90). 
DIMENSION DELTAI20). 
DIMENSION COEFX ( 20 1 ♦ 
OIMENSION ELMT (15 l, 

DIMENSION BOX (15)* 

C 

S MT ALF 

S GAS ALF OOPOOG 

S BUC ALF 00000 


C ( 2335 ) I 
C ( 2336 ) ) 
C ( 2338 ) ) 
C ( 2340 1 ) 


( I USE * 

(ITNUMB* 

(P, 

( IFROZ, 


A ( 1 5 * 90 ) 
H0I90) » 
60(15)* 
DX ( 20 ) * 
OATA( 231 
BOF( 15) * 


EN ( 90 ) * 

S( 90 ) » 
PCPI25) * 
FORM! 15 ) » 
0ATUM(3 5 ♦ 
ANSI 454)* 


REWIND 3 
NO EQ=0 
ITEST =M1 
SIZE=18.5 

555 IF ( I PROB-3 ) 557*563*565 
557 PC=P C/14.696006 
PO-PC 

IF (TC) 559*559.561 
559 TC LN* 8.25 
GO TO 431 
561 TC LN-LOGF(TC) 

GO TO 431 
563 PO«PC 

GO TO 431 
565 T*TC 
P 0«0.0 
T LN»LOGF(T) 

C 

C START CALCULATION FOR NEW OVERALL COMPOSITION 


431 IADD=1 

IF ( IFROZ ) 1431,379.1432 

1431 READ DRUM 4.479.IUSE 

IF (IUSE) 1432.1432,433 

1432 DO 432 (C*l *N 
EN 1 K ) =0.0 

EN LNU)=0.0 

432 DEL NIK) =0.0 
AAY LN«5.0 

433 SENSE LIGHT 0 

IF ( I PROB-2 ) 435,445*434 

434 IF ( I PROB-4 ) 455*465*379 

435 IF ( I ADD-1 ) 379,436.441 

436 SENSE LIGHT 1 

437 T LN=TC LN 
I TR0T=3 

.438 IF (PCP(IADD)) 231*231,439 
439 SENSE LIGHT 4 
PO=PC/PCP( I ADD) 

GO TO 13 

441 IF ( I ADD-25 ) 438,438,231 
445 IF (IADD-1) 379,447,441 
447 SENSE LIGHT 2 
GO TO 437 


02335) ) 
02337) ) 
02339) ) 
02341 ) ) 


EN LN.(90) 
XI20) 

PROD! 3) 

COEFT (15»9G) 
FORMLAI 18 ) 
SYSTM ( 15 ) 


1181 

1182 

1183 

1184 
1105 
1186 

1187 

1188 

1189 

1190 

1191 

1192 

1193 

1194 

1195 

1196 

1197 

1198 

1199 

1200 
1201 
1202 

1203 

1204 

1205 

1206 

1207 

1208 

1209 

1210 
1211 
1212 

1213 

1214 

1215 

1216 

1217 

1218 

1219 

1220 
1221 
1222 

1223 

1224 

1225 

1226 

1227 

1228 

1229 

1230 

1231 

1232 

1233 

1234 

1235 

1236 

1237 

1238 

1239 

1240 



455 IF fIADD-25) 459.45 0,??] 

459 1 F (PCP(IADD)J 231.231.460 

460 T=PCP(IADDI 

T LN = LOGF(T) 

GO TO 473 

465 IF fIAOO-25) 469.469.23 1 

469 IF (PCP(IADD)) 231.231.470 

470 P0=PCP( IADO) 

473 SENSE LIGHT 2 

SENSE LIGHT 4 
C 

C BEGIN CALCULATIONS FOR CURRENT POINT 
C CHECK TEMPERATURE RANGE OF THERMODYNAMIC DATA 
C 

13 READ ORUM K0RUM.2 .COEFT 
PO LN=LOGF(PO) 

IF (IPROB-2) 17.17.19 
17 T=EXPF ( T LN) 

19 IF (COEFT (7 »1 }-T ) 21.27.27 
21 IF { COEFT (7.1J-5000.0) 23.31.231 
23 8ACKSPACE I TAPE 
BACKSPACE I TAPE 

25 READ TAPE ITAPE. ( < COEFT ( K » J ) »K = 1 * 15 ) . J=1 .90) 

WRITE ORUM KDRUMt 1 .COEFT 
SENSE LIGHT 4 
GO TO 19 

27 IF (T-COEFT (6.1>) 29.37.37 
29 IF OOO.OtCOEFT (6.1)) 25.31.231 
31 IF (SENSE LIGHT 4> 39.305 
C 

C ELIMINATE THOSE SPECIES WHICH DO NOT HAVE DATA IN THIS INTERVAL 

37 IF (SENSE LIGHT 4 > 38tlA2 

38 SENSE LIGHT 4 
DO 40 J = 1.N 

IF (COEFT ( 8 » J ) ) 40.39.4 

39 CALL RYPASS (J.2) 

EN LNIJ)«0*0 

EN( J JnO.O 

40 CONTINUE 
C 

C BEGIN ITERATION FOR COMPOSITION 
C 

42 10=10 
101=IQ1 
102=102 
103=103 

I TNUMB=30 

43 DO 48 J=1.M 

CALL BYPASS (J.l) 

IF (J PROD-2 J 48.45.48 

45 IF (EN LN(J)+SIZE-PO LN 1 46.46.47 

46 EN(J)=0.0 
GO TO 48 

47 EN( J)=EXPF(EN LN( J) ) 

48 CONTINUE 

IF (IPROB-2) 49.49.51 

49 T=EXPF(T LN) 

51 AAY=EXPF ( AAY LN) 

READ DRUM KDRUM.l t COEFT 


1241 

1242 

1243 

1244 

1245 

1246 

1247 

1248 

1249 

1250 

1251 

1252 

1253 

1254 

1255 

1256 

1257 

1258 

1259 

1260 
1261 
1262 

1263 

1264 

1265 

1266 

1267 

1268 

1269 

1270 

1271 

1272 

1273 

1274 

1275 

1276 

1277 

1278 

1279 

1280 
1201 
1282 

1283 

1284 

1285 

1286 

1287 

1288 

1289 

1290 

1291 

1292 

1293 

1294 

1295 

1296 

1297 

1298 

1299 

1300 


CALCULATE HEAT CAPACITY. ENTHALPY AND ENTROPY 


!FIXT=3 

IF (SENSE LIGHT 2) 52.55 

52 SENSE LIGHT 2 

IF (SENSE LIGHT 4) 53.55 

53 SENSE LIGHT 4 
IF!XT=1 

IF (ITNUMB-30) 55.54.55 

54 IF!XT=2 

55 CPSUM«0.0 
00 60 J=1»N 
CALL BYPASS (J.l) 

IF ( I PROD-2 ) 60.56.60 

56 IF ( IFJXT-2) 59.58.57 

57 CPSUM=CPSUM+f ( ( I COEFT ( 12* J)#T+COEFT (11 » J) )*T+COEFT ( 1 0. J) )*T+COEFT ( 
19, J) )«T+C0EFT(8*J) )*EN( J) 


58 H0< J)=( ( ( (COEFT ( 12. J I /5 .0 > *T+COEFT ( 1 1 , J >/4.0) *T+COEFT ( 10, J > /3.0 ) *T 
1+C0EFT(9,J)/2.0)*T +COEFT ( 1 3 » J) /T+COEFT ( 8 . J ) 

59 S< J)=( ( ( ( COEFT ( 12, J)/4.0 )* T+COEFT (ll.J)/3»0)*T+C0EFT(10»J)/2.0)*T 
1+C0EFT(9»J) )*T+C0EFT18, Jl+T LN+COEFT ( 14. J)-EN LN(J) 

60 CONTINUE 


CONSTRUCT MATRIX AND SOLVE THE EQUATIONS 


READ DRUM LDRUM.l.A 
CALL MATRIX 

IF (SENSE LIGHT 4) 61,171 
61 SENSE LIGHT 4 
CALL GAUSS (1576) 

IF f I DEBUG) 910.80,910 

910 DO 911 1=1. IMAT 

911 WRITE OUTPUT TAPE 6 ,912. (G< I ,K) .K=l ,KMAT ) .OELTAII) 
WRITE OUTPUT TAPE 6 .912 » I X( I ) , I =1 , JMAT) 

912 FORMAT (8E14.6) 

80 IF (IDIO-IMAT) 81.85,81 

81 IF (SIZE-18.5) 83.83,311 
83 SIZE«27»5 

GO TO 43 

• 85 ITNUMB=!TNUM8-1 
DO 87 K=1 » IMAT' 

IF (ABSFIDELTA(K) )-0.5E-4> 87.07,315 
87 CONTINUE 

OBTAIN CORRECTIONS TO THE ESTIMATES 

0 LN T«X(IQ2J 
91 IF ( I FI XT-2 ) 93.95.379 
93 D LN T*>0»0 

95 00 101 J=1,M 

CALL BYPASS (J.l) 

IF ( I PROD-2 ) 96.97.96 

96 DEL N(JI=0.0 
GO TO 101 

97 DEL N(J)«HO(J)*D LN T-HO(JI+S(J) 

DO 99 K=1 »L 

99 DEL N(J)=DEl N( J) +A ( K » J >*X ( K > 

101 CONTINUE 

IF (L-IQ) 103.109.109 


1301 

1302 

1303 

1304 

1305 

1306 

1307 
I 308 

1309 

1310 

1311 

1312 

1313 

1314 

1315 

1316 

1317 

1318 

1319 

1320 

1321 

1322 

1323 

1324 

1325 

1326 

1327 

1328 

1329 

1330 

1331 

1332 

1333 

1334 

1335 

1336 

1337 

1338 

1339 

1340 

1341 

1342 

1343 

1344 

1345 

1346 

1347 

1348 

1349 

1350 

1351 

1352 

1353 

1354 

1355 

1356 

1357 

1358 

1359 

1360 



103 J=M 1 

00 107 K*L1 » 10 

104 CALL BYPASS (J.l) 

IF 1 1 PROD-2) 105.106.105 

105 DEL N(J)=0.0 
J»J+1 

GO TO 104 

106 DEL N(J)=X(K) 

J*J+1 

107 CONTINUE 

109 AMBDA=1.0 
AM8DA1=1.0 

S CLA 0 LN T 

S SSP 

S SBM X(IGl) 

S TPL*913 

SUM=ABSF(XU01)> 

GO TO 915 

913 SUM*ABSF(D LN T1 

915 DO 917 J*1.M 

IF (EN ( J) 1 917.1915.916 

916 SUM=MAX1F (DEL NU) .SUM) 

GO TO 917 

1915 IF (DEL N(JJ> 917.917.1917 

1917 SUM1 *ABSF ( { PO LN-9.212-EN LN(J»)/DEL N(J)| 

AMBDA 1-MIN1F ( SUM1 .AMBDAl ) 

917 CONTINUE 

IF (SUM-2.01 1110.1110.110 

110 AMBDAi2. O/SUM 

1110 AMBDA=MIN1F ( AMBDA . AMBDA1 ) 

920 IF ( I DEBUG 1 921,111.921 

921 READ DRUM KORUM. 1 , COEFT 

WRITE OUTPUT TAPE 6.923. T.P.AAY. AMBDA, ( (COEFT(K » J) *K=1 .3 ) » 
1 ENIJJ.EN LNIJI.DEL N ( J ) ,H0( J) »S( J ) » J-l »N ) 

923 FORMAT (4E25.8/(1X. 3A6.5E15.6) ) 

C 

C APPLY CORRECTIONS TO THE ESTIMATES 
C 

111 DO 113 J*1.M 

113 EN LN(J)*EN LNI J)+AMBDA*DEL N(J) 

IF ( ICOND-2 ) 115,121.375 
115 DO 117 J=M1,N 
117 ENI J)*EN(J)+AMBDA»DEL N(J> 

121 T LN*T LN +AMBDA*D LN T 
AAY LNoAAY LN- AMBDA*X(I01I 
IF (SENSE SWITCH 6) 122.124 

122 IF (IDEBUG) 1122.123,1122 
1122 I DEBUG*0 

GO TO 231 

123 IDEBUG*! 

C 

C TEST FOR CONVERGENCE OF ITERATION 
C 

124 IF (ITNUMBJ 125,132.125 

125 IF (AMBDA-1.0) 43.1124,231 
1124 PsO.O 

DO 1126 J*1.M 
1126 P*P+EXPF (EN LN( Jl 1 

IF (ABSFf (P0-P>/P0)*O.5E-5» 126.126,43 

126 SUM=P 


1361 

1362 

1363 

1364 

1365 

1366 

1367 
1360 

1369 

1370 

1371 

1372 

1373 

1374 

1375 

1376 

1377 

1378 

1379 

1380 

1381 

1382 

1383 

1384 

1385 
1366 

1387 

1388 

1389 

1390 

1391 

1392 

1393 

1394 

1395 

1396 

1397 

1398 

1399 

1400 

1401 

1402 

1403 

1404 

1405 

1406 

1407 
1408- 

1409 

1410 

1411 

1412 

1413 

1414 

1415 

1416 

1417 

1418 

1419 

1420 






I F ( ICOND-2H27, 129.375 

127 DO 128 J=M1,N 

128 SUM=5UM+A6SF 1 EN ( J J ) 

129 DO 130 J*1,N 

IF (J-M) 1129,1129.1130 

1129 IF (ABSF(EN(J)*DEL N( J 1 /SUM1 -0.5E-5 \ 130.130.43 

1130 IF (ABSF(OEL N ( J ) /SUM ) -0. 5E~5 ) 130.130.43 

130 CONTINUE 

132 IF (SENSE LIGHT 4) 133.133 

133 GO TO 13 


C 

C ELIMINATE THOSE SPECIES WITH NO DATA AT THIS TEMPERATURE. 
C THOSE WITH OATA AT THIS TEMPERATURE 
C 


142 00 170 J*1 »N 

S CLA COFFT(l.J) 

S SUB MT 

S TNZM70 

IF ( COEFT ( 5 * J ) +100.0-T ) 285.143.143 

143 IF IT -COEFT 14»J)+100,0) 295.144.144 
285 IF (5000.0-COEFTI5.J) ) 144.144.301 
295 IF (COEFT(4»J)-300.0I 144.144.301 

144 IF (J-M) 145.145.146 

145 CALL BYPASS (J.3) 

GO TO 170 

301 CALL BYPASS (J»2> 

EN( J)*0.0 
EN LN ( J) *0.0 
DEL N I J) *0.0 
GO TO 170 

146 IF (£N( J) ) 147,148.170 

147 EN( J ) =0.0 
DEL N(J1*0.0 
CALL BYPASS (J.2) 

GO TO 42 


ADD 


C SKIP CONDENSATION CHECK IF T IS HIGHER THAN MELTING POINT WHEN 

C TESTING SOLID. OR LOWER THAN MELTING POINT WHEN TESTING LIQUID 

C 

148 IF ( COEFT ( 4. J) -COEFT ( 5. J-l ) > 150.149.150 

149 IF (C0EFT(4,J)-T) 153. 153.170 

150 IF (COEFT(-5.J)-COEFT<4,J+U I 153. 151,153 

151 IF (T-COEFT (5. J) ) 153.153.170 
C 

C CHECK FOR CONDENSATION 

C IF MORE THAN ONE CONDENSED PHASE OF ANY SPECIES CAN EXIST THE 

C PHASE STABLE AT THE HIGHER TEMPERATURE MUST PRECEED THAT STABLE 

C THE LOWER TEMPERATURE ON MASTER TAPE 

C 

153 DO 155 K-2.3 
SUMaCOEFT(K.J) 

DO 15* 1*1*6 

S LOO SUM 

S CLM 

S SSP 

S LGL 6 

S STO SUM 

S SUB BLK 

S TZE*166 

154 CONTINUE 
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155 CONTINUE 
K = 3 

1=5 

60 TO 159 

156 1=1-2 

IF II) 157,158*159 

157 K=2 
1=5 

60 TO 159 

158 K=2 
1=6 

159 FORM! 2 ) “COEFT 1 2 t J ) 
FORM ( 3 ) =COEFT < 3 * J ) 
1=6*1 


JJ=42-t 

S LXD I*m 

S LXO JJ.(JJ) 

S LOG FORM(K) 

S CLM 

S SSP 

S LGl_ 36, (JJ) 

S SLW SUM 

S LGL 6 

S CLM 

S ADO GAS 

S LGL 36,(1) 

S SLW SUM1 

S LOO SUM1 

S LGL 36, (JJ) 

S CAL SUM 

S LGL 42,(1) 

S SLW FORM(K) 

00 16 0 <«1» M 
S CLA F0RM(2» 

S SUB COEFT ( 2,K > 

S TNZM60 

S CLA FORM( 3) 

S SUB COEFT ( 3»K ) 

S TZ£*162 

160 CONTINUE 

CALL BYPASS (J»3) 

GO TO 170 

162 CALL BYPASS (K,l> 

IF ( I PROD-2 > 170*163,17 

163 HO ( J ) = ( ( ( (COEFT ( 1 2 , J ) /5 ,0 ) *T+COEFT ( 1 1 * J )/4,0 ) »T+COEFT (10»J)/3,0)*T 
1+C0EFT(9,J)/2.0)*T +COEFT ( 13, J ) /T+COEFT ( 8 , J ) 

S( J )=( ( ( (COEFT ( 12, J)/4.0 )*T+COEFT ( 1 1 » J)/3» 0) *T+COEFT( 20, J) /2« 0 ) *T 
1 + C0EFT (9, J) )*T +COEFT ( 8 , J ) *T LN+COEFT ( 14, J ) 

IF (HO(J)-S(J)-HO(K >+S(K> ) 164,164,170 

164 CALL BYPASS (J,3) 

EN( J)=0,0 

60 TO 42 

170 CONTINUE 
C 

C IF COMPOSITION HAS BEEN CORRECTLY DETERMINED CALCULATE THE 
C EQUILIBRIUM PROPERTIES, OTHERWISE CONTINUE ITERATION 

IF (SENSE LIGHT 4) 1171,1172 
1171 SENSE LIGHT 4 
60 TO 4? 
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1172 IF (ITNUMB) 42,971,42 
971 WRITE OUTPUT TAPE 6,973,IAD0 

973 FORMAT (70HL30 ITERATIONS DID NOT SATISFY CONVERGENCE REQUIREMENTS 
1 FOR THE POINT 15) 

GO TO 42 
C 

C CALCULATE EQUILIBRIUM PROPERTIES 
C 

171 READ DRUM KDRUM » 1576 » ANS 
W7H0L*AAY/P 
HSUM=G(IQ2,IQ1)*T/AAY 
SSUM=0,0 

00 183 JM*N 
CALL BYPASS (J.l) 

IF ( I PROD-2 1 183,181,183 
181 S5UM=SSUM+S( J)*EN( J) 

183 CONTINUE 

SSUM=SSUM/AAY 

IMAT=IMAT-1 

CALL GAUSS (1576) 

IF (IDID-IMAT) 172,174,172 

172 CPR =CPSUM/AAY 
GAMMA=CPP/(CPR-(1.0/WTMOL) > 
olmtp=o«o 

dlmpt=o«o 
GO TO 185 

174 DLMTP=X ( 101 ) 

IF ( ABSF (OLMTP ) “27 • 5 ) 1174,1174,172 
1174 CPR=G( IG2»IQ2) 

DO 175 JM.IQ1 

175 CPR=CPR-G(IQ2,J)*X( J) 

CPR=CPR/AAY 

IMAT = I MAT-1 
CALL GAUSS (1576) 

DO 179 J*1»L 

179 DLMPT =DLMPT+G( 101 , J )*X( J) 

DLMPT = ( P-DLMPT ) /DLMPT 
IF (DLMPT-27,5) 180,180,172 

280 GAMMA = 1 , 0/ 1 1 . O+OLMPT- ( <1 . 0-DLMTP)**2 > /< CPR*WTMOL ) F 
IF (GAMMA) 172,172,185 

185 IF IIPROB-2) 186,186,207 

186 IF { I ADD-2 ) 187,191,197 

187 WTMOLC=WTMOL 

tc»t 

PC=P 

HC-HSUM 

S0*SSUM 

188 T PI=-DLMTP/(WTMOL*CPR) 

T ETA= 1000,0/ ( CPR*TC*1 ,98726 ) 

T SIG=-( 1,0-DLMTP) /(WTMOL*CPR > 

GO TO 207 
C 

C CHECK FOR CONVERGENCE AT THROAT 
C 

191 DHSTAR=HC-HSUM - (GAMMA*T/(2.0*WTM0L) ) 

IF (ABSF(DHSTAR/1HC“HSUM) )-0,4E-4) 197,197,192 

192 I F 1 1 TROT) 193,197,193 

193 PCP(2)*PCP(2)/(3 »0+2»0*DHSTAR*WTM0L/( T* I GAMMA +1 ,0 ) ) > 

PO=PC/PCP(IAOD) 

1 TROT = I TROT-1 
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IF ( I DEBUG) 929*194.929 

929 WRITE OUTPUT TAPE 6 *923.DHSTAR*HC*HSUM.PCP< IADD) 
194 SENSE LIGHT 4 
GO TO 13 
C 

C CALCULATE PERFORMANCE PARAMETERS 
C 

197 SP IMP»294.98*SQRTF< ( HC-HSUM > *1 . 98726E-3 ) 

RHOI =RHO*$P IMP 

SUM*T/(2.0«(HC-HSUM) ) 

P I I =SUM* I WTMOL-WTMOLC ) / I WTMOL*WTMOLC J 
ETA I *SUM*(TC-T ) / I TC*T#1 • 98726 ) *1000*0 
SIG I*SUM/WTMOL 

T Plait (WTMOLC-WTMOL ) /WTMOLC I-DLMTP ) /(WTMOL*CPR ) 

T ETA=1000.0/(CPR*TC*1. 98726) 

T SIG=-I1.0-DLMTP)/(WTMOL*CPR) 

AW= 186.4579*7 )/IAAY*14.696006*SP IMP) 

AW PI*- m.0-DLMTP)/tW7MOLC*CPR)+1.0/GAMMA+Pl 1) 
AW ETAaT ETA*I1.0-DLMTP>-ETA I 
AW SIG*1.0/GAMMA-$IG I 
IF i I ADD-2) 203*201.203 
201 AWT °AW 

CSTAR=32* 174*PC*1 4. 696006*AWT 

CSTRPI*1.0+AW PI 

STR £TA*AW ETA 

STR S 16*0.0 

AWT PI =AW PI 

AWT ETAaAW ETA 

AW SI6*0*0 

203 CF=32.174#SP IMP/CSTAR 
ARATIO*AW/AWT 

VACI=$P JMP+P*14.696006*AW 
RHOVAC*RHO*VACI 

VMACH*SP IMP/SORTF ( 86.4579*GAMMA*T /WTMOL ) 

EP P I * AW PI-AWT PI 
EP ETA*AW ETA-AWT ETA 
EP SIG*AW SIG 
207 HSUM*HSUM*1. 98726 
SSUM*SSUM*1 .98726 
CP*CPR*1.98726 
C 

C OBTAIN COMPOSITION IN MOLE FRACTIONS 
C 

SUM=P 

IF (ICOND-2) 209*213.375 
209 DO 211 JaMl.N 
211 SUM = SUM +EN I J ) 

213 DO 215 J=1.N 
215 AN5I4*J+34) =EN t J) /SUM 
IF 1 1 PROB-2 ) 217.217.22 

217 ANS 1 1 ) =PCP 1 1 AOD I 

218 IF (IA00-2) 220.219.219 

219 ANSI 15 ) »C$TAR 
ANSI24)*CSTRPI 
ANSI29) »STR ETA 
ANSI34)“STR SIG 

2?0 ANS 1 2 ) =P 
ANSI3 )*T 

Ks34+4»N 
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C PRINT OUT THE CALCULATED ANSWERS 

C 

IF 1 1 DEBUG ) 1221.222.1221 
1221 WRITE OUTPUT TAPE 6 .221 . I ANS 1 1 ) ♦ 1*1 f K) 

221 FORMAT I1H ////5E20.8/5E20.8/5E20.8/4F20.8/5E20.8/5E20.8/5E20.8/// 
1 (3I7X.3A6.F8.5 > ) ) 

GO TO 2223 

222 WRITE TAPE 3. IANSII). 1*1.454) 

NO EQ*NO EQ+1 

2223 IF IIADD-2) 223.225.225 

223 IF 1 1 PROB-2 ) 224.1224.1223 

224 IF (IFROZ) 1223.1224.1224 

1224 PCPI 2 ) * 1 1 GAMMA+ 1 . 0 ) / 2 . 0 ) ** I GAMMA / 1 GAMMA- 1 .0 > ) 

T LN*T LN+L06F ( 2.0/ (GAMMA+1.0 ) ) 

1223 WRITE DRUM 4.1, ANS 

225 IADOsIADO+1 
GO TO 433 

C 

231 IF INO EG) 378.378.1231 
1231 WRITE DRUM 4.793. NO EO 

IF (IFROZ) 232.379.235 

232 IF 1 1 ADD-2 ) 378.233.378 

233 IF ( I DEBUG) 378.234,378 

234 CALL PONG! 4) 

235 IF ( I PROB-2 ) 237.237.239 
237 CALL PONG! 3 ) 

239 WRITE TAPE 3. (GIT) . 1*1.2341 ) 

CALL PONG 1 5 ) 

C 

C ERROR PRINT OUT 

C 

305 WRITE OUTPUT TAPE 6.306.T.IAOD 

306 FORMAT I 17HLTHE TEMPERATURE=E12.4»34H K* IS OUT OF RANGE FOR THE P 
lOINt 15) 

IF (6000. 0-T) 309.307.307 

307 IF IT-200.0) 1309.308.308 

308 GO TO 142 

1309 IF (IADD-1) 309.1310.309 

1310 IF (IPR08-2) 1311.309.309 . 

1311 IF CITEST-N) 1312.1312.309 

1312 DO 1313 JMTEST.N 
CALL BYPASS! J. 1 ) 

IF 1 1 PROO-2 ) 1315.1313,1313 

1313 CONTINUE 
GO TO 309 

1315 ITEST*J+1 

CALL BYPASS I J. 3) 

GO TO 555 

309 I ADD* 2 5 

IF (SENSE LIGHT 4) 42.42 

311 WRITE OUTPUT TAPE 6 .312 . IMAT . IDID 

312 FORMAT I/15H1TRIED TO SOLVE I3.22H EQUATIONS. ELIMINATED 13) 

GO TO 375 

315 WRITE OUTPUT’ TAPE 6.316. 

316 FORMAT I /47H1RESI DUALS FROM SUBROUTINE GAUSS EXCEED 0.5E-4) 

375 IF (IDEBUG) 23l.377.231 

377 IDEBUG*! 

IF 1 1 PROB-3 ) 1377.555.555 
1377 PCaPC»l'4. 696006 
GO TO 555 

378 WRITE TAPE 3. (G( I ) . 1*1 .2341 > 

BACKSPACE 3 

CALL PONGI1) 


1661 

1662 

1663 

1664 

1665 

1666 

1667 

1668 

1669 

1670 

1671 

1672 

1673 

1674 

1675 

1676 

1677 

1678 

1679 

1680 
1681 
1682 

1683 

1684 

1685 

1686 

1687 

1688 

1689 

1690 

1691 

1692 

1693 

1694 

1695 

1696 

1697 

1698 

1699 

1700 

1701 

1702 

1703 

1704 

1705 

1706 

1707 

1708 
1709’- 

1710 

1711 

1712 

1713 

1714 

1715 

1716 

1717 

1718 

1719 

1720 

1721 

1722 

1723 







65 


379 REWIND * 

PAUSE 77777 

SUBROUTINE GAUSS (IWRO) 

C 

C SUBROUTINE GAUSS SOLVES ANY L INEAR SET OF UP TO TWENTY EOUATlONSt 
C BY ITERATION IF NECESSARY 

C 

COMMON C 

EQUIVALENCE <G(1)» CUM* (GI420I, CI420)) 

EQUIVALENCE (FORM(l>» C(l)»* (FORMU5), CI15)» 

EQUIVALENCE <ELMT(l>* C(16)>* (ELMTU5)* CI30H 

EQUIVALENCE I DATA <1 1 * C < 3 1 ) ) • (DATA(23), C(53J) 

EQUIVALENCE lAIUi C(421)l. (A<1350)» C< 1770 ) ) 

EQUIVALENCE (COEFT(l)* C<421))* ( COEFT< 1350 ) *C ( 1770 > ) 

EQUIVALENCE <ANSm» C<421)>» (ANSI454), C(874)) 

EQUIVALENCE (KSUM. C(424)J* (SSUM, C(425>) 

EQUIVALENCE (WTMOL* 0(426))* (CP* C(427)J 

EQUIVALENCE ( DLMPT * C(428)>. (DLMTP* C(429)) 

EQUIVALENCE (GAMMA* 0(430) ), (ARATIO, C(431)) 

EQUIVALENCE (VMACH, C(432))* <SP IMP, C(433)> 

EQUIVALENCE (VACI* C(434)>» (CF» C<436}> 

EQUIVALENCE (RHOI, C<437)), (RHOVAC, CI438H 

EQUIVALENCE (RHO, C(439)> 

EQUIVALENCE (T PI, C(440)», (PI I* C(441)) 

EQUIVALENCE ( EP PI, CI442))* <AW PI* C(443J> 

EQUIVALENCE (T ETA* C(445>» 

EQUIVALENCE (ETA I, C(446))* (EP ETA* CI447H 

EQUIVALENCE (Aw ETA, C(44'8)J* (TSIG* C(4S0)» 

EQUIVALENCE (SIG I, 0(451)1* (EPSIG* 0(452)) 

EQUIVALENCE (Aw SIG* C(453)) 

EQUIVALENCE (EN(1>. 0(1771)1* (EN<90)» C<1860>> 

EQUIVALENCE (BOX(l)* CU771I), (BOXUSl* C(1785l> 

EQUIVALENCE (80F(1). C<1786)), (B0F(15). C(1800)I 

EQUIVALENCE (HX» 0(1801))* (HF, 0(1802)1 

EQUIVALENCE (VXPLS. 0(1803))* (VXMIN. C(1804).l 

EQUIVALENCE (VFPLS* C( 1805)1* (VFMIN* C<1806)» 

EQUIVALENCE (EN LN(1)» CU861)), (EN LN(90)* C/2950)) 

EQUIVALENCE (DEL N(l). 0(1991))* ( DEL N(90)* 0(2040)1 

EQUIVALENCE (COEFXUI. 0(1951))* <COEFX(20)* 0(1970)) 

EQUIVALENCE ( OX ( 1 ) ♦ 0(1951)), (DXI20), C(1970)) 

EQUIVALENCE C HO ( 1 ) * 0(2041))* (H0I90), C(2130)» 

EQUIVALENCE IS(1>, 0(2191))* (S(90)» C(2220») 

EQUIVALENCE (X(l), CI2221H* (X(20l* C(2240)> 

EQUIVALENCE (FORMLA(l), C ( 2*221 > ) • ( FORMLA ( 18 ) *C( 2238 ) ) 

EQUIVALENCE (DELTA(l), CI2241)), (DELTA! 20 ) , C(2260>) 

EQUIVALENCE (B0(1), C(2261))» (B0(15>, CI2275)) 

EQUIVALENCE (PO* 0(2276))* (HSUBO* CI2277M 

EQUIVALENCE (SO* C(2278)J, (T LN* C(2 279)) 

EQUIVALENCE (T, C(2280)l* (AAY LN, 0(2281)) 

EQUIVALENCE (AAY, CC2282))* (CPSUM, C(2283)) 

EQUIVALENCE ( HC , C(2284))» (TC LN* CI2285)) 

EQUIVALENCE (PCP(l)* C(2286))* (PCP(25)» C(2310)) 

EQUIVALENCE I PROOli ) , 0(2311)), (PJKMX3), 0(2313)) 

EQUIVALENCE (DATUM(l), C(2311))» ( DATUM ( 3 ) * C(2313)> 

EQUIVALENCE (PC* 0(2314)), (TO, 0(2315)) 

EQUIVALENCE (IPROB, 0(2316))* (1FIXT* C(2317)> 

EQUIVALENCE IlHS, CI2318)), (ICOND. CI2319)) 

EQUIVALENCE (ISYM, CI2320!)* (IPROD* 0(2321)) 

EQUIVALENCE (IDID, C(2322)), (LDRUM* 0(2323)) 

EQUIVALENCE ( IDRM* C(2323))* (KDRUM* C(2324)) 

EQUIVALENCE (L, 0(2325))* (Ll» 0(2326)) 

EQUIVALENCE (M, C(2327>), (Ml* C (2328) ) 

EQUIVALENCE (N, C(2329)), (IQ, C(2330)) 

EQUIVALENCE ( IQ1 , 0(2332))* (IQ2, 0(2332)) 

EQUIVALENCE IIQ3, C(2333>), ( KM AT « C<2334)> 

EQUIVALENCE (IMAT, CI2335H, (IUSE* C(2335)» 

EQUIVALENCE UADD* 0(2336)), (ITNUMB, 0(2337)) 

EQUIVALENCE (ITAPE, 0(2338)1* (P. 0(2339)1 

EQUIVALENCE ( I DEBUG* C(2340>>» (IFROZ* 0(2341)) 

C 

DIMENSION G( 20*21 ) , A(15*90), EN(90>* EN LNI90) 

DIMENSION DEL NI90), H0(90)» S(90)» X(20> 

DIMENSION DELTA! 20) * B0(15>* PCPI25), PRODCJ) 

DIMENSION COEFX (201* DX(20), F0RM(15), COEFT(15»90) 

DIMENSION ELMT ( 15 ) * DATA! 23) ♦ 0ATUM(3», FORMLA ( 18 ) 

DIMENSION BOX ( 15 ) » 80F(15), ANSI454), SYSTM(15) 

S II DEC 1 
S MAX DEC 4 
S I OR DEC 128 

s stz roio 

S CLA IUSE 
S TZE*80 

S ADD 1 1 
S STO IUSE1 

DO 1 K« 1, IUSE 
S STZ X { K ) 

S STZ DELTA(K) 

1 CONTINUE 
ITERA- 0 
KAPUT-1 
S CLM 
S COM 
S SSP 
S STO DSUM1 
C 

C SAVE MATRIX ON DRUM IDRM BEGINNING AT LOCATION IWRD 
C 

WRITE DRUM IDRM* IWRD* G 
C 

S 2 TQ0*3 

S 3 T0V*4 

S 4 DCT 

S NOP 
C 

C BEGIN ELIMINATION OF NNTH VARIABLE 

C 

6 DO 46 NN-1, IUSE 

S OLA NN 

S SUB IUSE 

S TNZ*8 

S CLA G(NN*NN) 

S TZE*23 

S TRA»31 

C 

C SEARCH FOR MAXIMUM COEFFICIENT IN EACH ROW 

C 

8 DO 18 I-NN, IUSE 
S CLA NN 

S STO J 

S CLA G(I.J) 
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S TZE*14 

S STZ COEFX ( I J 

10 J- J+l 
S CLA IUSE1 
S SUB J 
S TMI *12 
S CLA 6(1. JJ 
S SSP 
S LRS 35 
S . ADM COEFXf I } 

S TL0*10 
S STQ COEFX ( I ) 

S TRA*10 
S 12 CLA COEFX ( I ) 

S FOP G( I »NN> 

S T 00*101 
S LLS 35 
S SS 15 
S TRA*1 6 
S 101 TOV*103 
S CLM 
S LLS 26 
S SSP 
S SUB I OR 
S TMI*14 
S 103 CLM 
S TRA*1 5 
S 14 CLM 
S COM 
S 15 SSP 
S 16 STO COEFXCH 
S T0V*18 

10 CONTINUE 
C 

C SEARCH FOR ROW WITH THE MINIMUM MAXIMUM COEFFICIENT 
C 

S 19 CLM 
S COM 
S SSP 
S STO TEMP 
S STZ I 

20 00 22 J=NN, IUSE 
S CLA TEMP 
S LOO COEFX (J) 

S TLQ*2 1 

60 TO 22 
S 21 STO TEMP 
I=J 

22 CONTINUE 
S CLA I 
S TNZ*28 

S 23 CLA NN 
S SUB 11 
S STO IDID 
S TRA*80 

C 

C INDEX I LOCATES EQUATION TO BE USED FOR ELIMINATING THE NTH 

C VARIABLE FROM THE REMAINING EQUATIONS 

C 

C INTERCHANGE EQUATIONS I AND NN 
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1880 
1881 
1882 

1883 

1884 
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C 

S 28 CLA NN 

S SUB I 

S TZE*31 

29 DO 30 J= NN. IUSE1 

S CLA G ( I . J ) 

S LOO G(NN.J) 

S STO Gl I .J) 

S STO G ( NN » J ) 

30 CONTINUE 
C 

C DIVIDE NTH ROW BY NTH 0 1 AGONAL ELEMENT AND ELIMINATE THE NTH 
C VARIABLE FROM THE REMAINING EQUATIONS 

C 

31 K« NN+1 

DO 36 J=K. IUSE1 
S CLA G ( NN » J ) 

S FDP G( NN.NN > 

S TQ0*34 

S STQ G ( NN. J ) 

S TRA*35 
S 34 T0V*134 
S CLM 

S LLS 26 

S SSP 

S SUB I OR 

S TMI *23 
S 134 STZ G(NN.J) 

S 35 TOV*36 
36 CONTINUE 
S CLA K 

S SUB IUSE1 

S TZE*46 

DO 45 I»K» IUSE 
40 DO 44 J«K. IUSE1 
S LDO G(NN.J) 

S FMP GII.NNI 

S T0V*42 
S CHS 

S FAD Gll.J) 

S STO GII»J> 

S T 00*44 

S TRA*44 
S 42 T 00*43 

GO TO 23 
S 43 LRS 1 

S P8T 

S TRA*23 

44 CONTINUE 

45 CONTINUE 

46 CONTINUE 
C 

C BACKSOLVE FOR THE VARIABLES 
C 

S CLA IUSE 
S STO IDID 
S LXD IUSE. <K) 

S 47 SXD K»(K) 

J- K*1 

S STZ SUM 
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1926 

1927 

1928 

1929 

1930 

1931 

1932 

1933 

1934 

1935 

1936 

1937 

1938 

1939 

1940 

1941 

1942 

1943 

1944 

1945 

1946 

1947 

1948 

1949 

1950 

1951 

1952 

1953 

1954 

1955 

1956 

1957 

1958 

1959 

1960 

1961 

1962 

1963 



67 


S C LA I USE 

S SUB J 

S TMf *51 

48 00 50 I« J. I USE 

SUM= SUM + G«K.I)*DX(I> 

50 CONTINUE 

51 DX(K)* G(K,IUSE1»-SUM 
X C K ) “X ( K )+0X ( K ) 

S TIX*47 , <K>, 1 

READ DRUM IDRMt IWRD* G 
C 

C CALCULATE RESIDUALS (DELTA RIGHT HAND SIDE! 

C 

S 52 STZ OSUM 

00 64 I ■ 1 « I USE 
S STZ SUM 

54 DO 56 J*1 * JUSE 

SUM»SUM+G(I,J)*X(J> 

56 CONTINUE 

DELTA( I )*G( I » I USE l I -SUM 
IF (ABSF(G(I.IUSEU)-l.O) 62»62.6 
60 OELTAI I )«DELTAI I )/G( I * I USED 
62 DSUM»ABSF ( DELTA < I I J+OSUM 
64 CONTINUE 

GO TO <66.80>. KAPUT 
66 IF (DSUM'DSUMl) 74*80.68 
68 KAPUT*2 

DO 72 K"hluSE 
72 X<K)-X(K>-DX<K> 

GO TO 52 

74 DSUM1=DSUM 

S CLA ITERA 

S ADD 1 1 

S STO ITERA 

S SUB MAX 

S TZE*80 

DO 78 I=1»IUSE 

IF (ABSF(G( I * I USED )-l«0) 75*75,76 

75 G(I«IUSE1 ) "DELTA ( I J 
GO TO 78 

76 G( I * I USE1 ) =DELT A( I )*G(!*IUSE1> 

78 CONTINUE 

GO TO 2 
80 RETURN 


1964 

1965 

1966 

1967 

1968 

1969 

1970 

1971 

1972 

1973 

1974 

1975 


1978 

1979 

1980 

1981 

1982 

1983 

1984 

1985 

1986 

1987 

1988 

1989 

1990 

1991 

1992 

1993 

1994 

1995 

1996 

1997 

1998 

1999 

2000 
2001 
2002 

2003 

2004 

2005 

2006 
200 7 



SUBROUTINE MATRIX 
C 


COMMON C 


EQUIVALENCE 

( G ( 1 ) » 

Clll). 

(0(420). 

C ( 420 ) ) 

EQUIVALENCE 

(FORM(l), 

C ( 1 ) ) » 

( FORM( 15 ) » 

C ( 1 5 ) ) 

EQUIVALENCE 

(ELMT(l). 

CC 16) > . 

< ELMT (15)* 

COO) ) 

EQUIVALENCE 

( DATA ( 1 ) . 

CI31M. 

<DATA<23) . 

C ( 53 ) ) 

EQUIVALENCE 

(All) » 

C (421 > ) • 

( A ( 1350 ) . 

C! 1770) ) 

EQUIVALENCE 

(COEFT(l). 

C ( 421 ) ) . 

(COEFT ( 1350 

»C! 1770) ) 

EQUIVALENCE 

(ANS(l) . 

C ( 421 ) ) » 

(ANS(454) . 

C(874) ) 

EQUIVALENCE 

(HSUM, 

C(424>), 

< SSUM . 

C ( 425 ) ) 

EQUIVALENCE 

(WTMOL. 

C ( 426) ) » 

(CP, 

C(427) ) 

EQUIVALENCE 

(DLMPT. 

C (420 ) • 

(OLMTP. 

C(429) ) 

EQUIVALENCE 

(GAMMA. 

CC 430) ) . 

(ARATIO. 

C(431) ) 

EQUIVALENCE 

( VMACH. 

C ( 432 ) > . 

(SP IMP. 

C (433 ) ) 

EQUIVALENCE 

(VACI. 

C ( 434 > ) . 

(CF, 

C (436 ) ) 

EQUIVALENCE 

( RHOI ♦ 

C(437) ) . 

(RHOVAC. 

C (438 ) ) 

EQUIVALENCE 

(RHO. 

C<439) ) 



EQUIVALENCE 

(T PI. 

C ( 440 > » 

(PI I, 

C( 441 ) ) 

EQUIVALENCE 

(EP PI. 

C( 442 ) ). 

(AW PI, 

C( 443 ) ) 

EQUIVALENCE 

(T ETA. 

C(445 ) ) 



EQUIVALENCE 

(ETA I. 

C(446) ) . 

(EP ETA, 

C(447) ) 

EQUIVALENCE 

(AW ETA. 

C ( 448 ) ) » 

(T SIG. 

C ( 450 > ) 

EQUIVALENCE 

(SIG I. 

C( 451 ) ). 

(EP SIG, 

C( 452 ) ) 

EQUIVALENCE 

(AW SIG. 

CI453) ) 



EQUIVALENCE 

( EN ( 1 ) . 

C ( 1771 > ) . 

( EN ( 90 ) » 

C 1 1860 ) ) 

EQUIVALENCE 

( BOX ( 1 ) . 

C ( 1771 > ) * 

( BOX ( 15 > * 

C( 1785 ) ) 

EQUIVALENCE 

(B0F(1) ♦ 

C ( 1786 ) 1 . 

< BOF ( 15 ) . 

C ( 1800 ) 1 

EQUIVALENCE 

(HX. 

C< 1801 ) ♦ 

(HF. 

C( 1802) ) 

EQUIVALENCE 

CVXPLS* 

C( 1803 ) ) » 

CVXMIN* 

CC 1804 ) 1 

EQUIVALENCE 

( VFPLS. 

C ( 1805 > ) . 

(VFMIN. 

C ( 1806 ) ) 

EQUIVALENCE 

(EN LN( 1 ) 

C ( 1861 ) ) * 

(EN LN(90 ) » 

C ( 1950 ) ) 

EQUIVALENCE 

(DEL N ( 1 ) 

C ( 1951 ) ) » 

(DEL N ( 90 ) , 

C ( 2040 ) ) 

EQUIVALENCE 

(COEFxm 

C ( 1951 ) ) * 

(COEFX( 20) » 

Cl 1970) > 

EQUIVALENCE 

(Dxm. 

C(1951)) . 

(DX(20>» 

C ( 1970 ) ) 

EQUIVALENCE 

( ho m . 

C(2041 ) ) . 

(HO ( 90 ) , 

CI2130) ) 

EQUIVALENCE 

<SU>» 

C( 2131 ) ) . 

( S ( 90 ) » 

C ( 2220 ) ) 

EQUIVALENCE 

mill 

C ( 2221 ) ) . 

( X ( 20 ) » 

C(2240) ) 

EQUIVALENCE 

( FORMLA ( 1 ) » C(222U)» 

(FORMLA (18) 

,C( 2236 ) ) 

EQUIVALENCE 

(DELTA(l) 

C ( 2241 ) ) » 

(DELTA (20). 

C( 2260 ) ) 

EQUIVALENCE 

CB0U)» 

C ( 2261 > ) » 

I80U5) * 

CC 2275 ) ) 

EQUIVALENCE 

(PO. 

C(2276J) » 

(HSUBO. 

CC2277 ) ) 

EQUIVALENCE 

(SO. 

C ( 2278 ) ) » 

(T LN. 

C (2279 ) ) 

EQUIVALENCE 

(T. 

C ( 2280 ) ) . 

(AAY LN. 

C( 2281 ) ) 

EQUIVALENCE 

( AAY . 

C ( 2282 ) ) . 

(CPSUM. 

C ( 2283 ) ) 

EQUIVALENCE 

(HC» 

C ( 2284 ) ) * 

(TC LN. 

CC2285) ) 

EQUIVALENCE 

(pcPm. 

C ( 2286 ) ) . 

(PCP ( 25 ) . 

C C 2 3 1 0 ) ) 

EQUIVALENCE 

( PROD ( 1 ) ♦ 

C( 2311 ) ) . 

(PROD (3) ♦ 

C( 2313)1 

EQUIVALENCE 

( DATUM! 1 1 

C ( 2311 ) ) • 

( DATUM ( 3 ) » 

C ( 2313 ) ) 

EQUIVALENCE 

(PC. 

CI2314) ) . 

(TC. 

CI2315) ) 

EQUIVALENCE 

< IPROB. 

C< 2316 ) ) . 

{ IFIXT, 

C ( 2317 ) ) 

EQUIVALENCE 

( IHS. 

Ct 2316) ) . 

(ICOND. 

Cf 2319) ) 

EQUIVALENCE 

(ISYM, 

CI2320I) t 

(I PROD. 

C ( 2321 > I 

EQUIVALENCE 

( IOID. 

C ( 2322 ) ) . 

! LDRUM. 

CI2323) ) 

EQUIVALENCE 

< IDRM. 

Cf 2323 ) I . 

(KDRUM. 

C( 2324) > 

EQUIVALENCE 

(L» 

C12325) ) . 

(LI. 

C ( 2326 ) ) 

EQUIVALENCE 

CM* 

CC 2327 ) ) » 

(Ml* 

CC 2328) ) 

EQUIVALENCE 

< N. 

C(2329) )♦ 

(IQ, 

C ( 2330 ) > 

EQUIVALENCE 

( 1Q1 . 

C( 2331 > ) . 

( IQ2, 

C (2332) ) 

EQUIVALENCE 

( IQ3 . 

C ( 2333 ) ) * 

(KMAT , 

C { 2334 ) ) 

EQUIVALENCE 

UMAT. 

C ( 2335 ) 1 * 

(1USE. 

CC2335) ) 

EQUIVALENCE 

( I ADD • 

C ( 2336 ) ) . 

( ITNUMB » 

CC2337)) 

EQUIVALENCE 

(ITAPE. 

C ( 2338 ) ) . 

(P. 

C ( 2339) ) 

EQUIVALENCE 

( I DEBUG* 

C ( 2340 ) ) . 

( IFROZ, 

C( 2341 ) ) 

DIMENSION 

6(20*21)* 

AC 15*90 * 

EN( 90) , 

EN LN( 90) 

DIMENSION 

DEL N(90), 

HOC 90) ♦ 

5(90) » 

X( 20) 

DIMENSION 

DELTA! 20) , 

B0(1S). 

PCP< 25) . 

PROD (3) 

DIMENSION 

COEFX ( 20) * 

DXC20). 

FORM (15). 

COEFT ( 15*90) 

DIMENSION 

ELMT ( 15 ) » 

DATA( 23 ) . 

DATUM ( 3 ) . 

FORMLA (18) 

DIMENSION 

BOX (15). 

B0FC15). 

ANSC454) » 

SYSTM( 15 ) 

DETERMINE WHICH MATRIX 

IS TO BE SET 

UP 


SENSE LIGHT 

LIGHT 

ON 

LIGHT OFF 

1 

COMBUSTION TYPE 

EXPANSION TYPE 

2 

ASSIGNED 

TEMPERATURE 

UNASSIGNED TEMPERATURE 


C A NOT CONVERGED CONVERGED 

C 

IQ1-IQ1 

102*102 

103*103 

IF (SENSE LIGHT 2) 1*4 

1 SENSE LIGHT 2 

IF (SENSE LIGHT 4) 2»3 

2 SENSE LIGHT 4 
IFIXT*1 

I SYM* IQ1 
GO TO 10 

3 IPIXT*2 
IHS n l 

I SYM* 102 
GO TO 10 

4 IFIXT*2 

IF (SENSE LIGHT 1) 5»6 

5 SENSE LIGHT 1 
IHS*1 

I SYM* 102 
GO TO 10 

6 IF (SENSE LIGHT 4) 7. 6 

7 SENSE LIGHT 4 
IHS*2 

I SYM* 101 
GO TO 10 

8 IHS*1 

I SYM* 1 02 
C 

C CLEAR MATRIX STORAGES TO ZERO 
C 

10 DO 212 1*1.102 
DO 211 K*1 .103 
GII,K)= 0.0 

211 CONTINUE 

212 CONTINUE 
ICONO=1 

IF (L-IG) 14.213.14 

213 ICOND-2 


2008 

2009 

2010 
2011 
2012 

2013 

2014 

2015 

2016 

2017 

2018 

2019 

2020 
2021 
2022 

2023 

2024 

2025 

2026 

2027 

2028 

2029 

2030 

2031 

2032 

2033 

2034 

2035 

2036 

2037 

2038 

2039 

2040 

2041 

2042 

2043 

2044 

2045 

2046 

2047 

2048 

2049 

2050 

2051 

2052 

2053 

2054 

2055 

2056 

2057 

2058 

2059 

2060 
2061 
2062 

2063 

2064 

2065 

2066 

2067 

2068 

2069 

2070 

2071 

2072 

2073 

2074 

2075 

2076 

2077 

2078 

2079 

2080 
2081 
2082 

2083 

2084 

2085 

2086 

2087 

2088 
2 089 

2090 

2091 

2092 

2093 

2094 

2095 

2096 

2097 

2098 

2099 

2100 
2101 
2102 

2103 

2104 

2105 

2106 

2107 

2108 

2109 

2110 
2111 
2112 

2113 

2114 

2115 

2116 

2117 

2118 

2119 

2120 
2121 
2122 

2123 

2124 

2125 

2126 


BEGIN SET UP OF ITERATION MATRIX 



14 DO 65 J=1 *M 

CALL BYPASS (J,1J 

IF ( I PROD-2 ) 65*214*65 
214 IF ( EN ( J ) ) 65*65*12 
C 

C CALCULATE THE ELEMENTS R(I,K> 

C 

12 DO 20 1=1* L 

IF (AII.JII 13,20*13 

13 TERM= A I I * J I #6N ( J ) 

DO 15 K=I» L 

G(I,K>= G(I.K) + A(K*J)*T£RM 

15 CONTINUE 
C 

C COMPLETE COLUMN A FOR THE GAS MOLECULE 


G( r,rOI IOll+TERM 

20 CONTINUE 

G( 101 * 101 ) « G( IQ1 » 101 )+EN( J) 

C 

c STATEMENT 24 IS FOR FIXED T» 30 IS FOR VARIABLE T AND CONVERGEO 
C FIXED T 
C 

21 IF 1 1 FIXT-2 ) 24,30,30 
C 

C FOR ASSIGNED T BYPASS ENERGY ROW AND T COLUMN WHILE ITERATING 

24 TERM= ( HO ( J ) -S ( J ) ) *EN ( J 1 

DO 25 1*1* L 

G(I*I02)-G( I,I02»+A(I*J»*TERM 

25 CONTINUE 

G( 101 » 102) B G( I01,IQ2I+TERM 
GO TO 65 
C 

C FILL IN TEMPERATURE COLUMN AND RIGHT HAND SIDE 
C 

30 TERM=HO(J>*EN(J) 

DO 35 1=1. L 

G ( I , 1 02 ) = GU,I02)+AII,J)#T£RM 
35 CONTINUE 

6(101* 1021 3 6< 101*102 J+TERM 
TERM1«(H0(J)-S( JI )*EN( J) 

DO 40 I » 1 *L 

G( I *103 ) n G( I * I03)+A( I » JJ#TERM1 
40 CONTINUE 

G( IQ1 » IQ3 )=G( 101* IQ3J+TERM1 
C 

C STATEMENT 50 IS FOR ENTHALPY . 55 IS FOR ENTROPY EQUATION 

45 IF (IHS-2J 50*55*55 
50 G(IQ2,IQ2J=G( IG2.IQ2)+H0<J)*TERM 
G(IQ2.I03)=6I IQ2»IQ3J+H0< J)*TERM1 
GO TO 65 
C 

C DURING EXPANSION THE ENTROPY ROW IS FILLED IN 

55 TERM*S( J)*EN(J) 

DO 60 K = 1 * L 

60 G(I02*K)= G( IQ2,K)+A(K,J)*TERM 


2128 

2129 

2130 

2131 

2132 

2133 

2134 

2135 

2136 

21 37 

2138 

2139 

2140 

2141 

2142 

2143 

2144 

2145 

2146 

2147 

2148 

2149 

2150 

2151 

2152 

2153 

2154 

2155 

2156 

2157 

2158 

2159 

2160 
2161 
2162 

2163 

2164 

2165 

2166 

2167 

2168 

2169 

2170 

2171 

2172 

2173 

2174 

2175 

2176 

2177 

2178 

2179 

2180 
2181 
2182 

2183 

2184 

2185 

2186 
2187 


C 

C 

C 


CONTINUE 

G(I02*I<31I a G( IQ2, IQ 1 J+TERM 
G( 102 *102) =G( 102,102 )+H0( J)*TERM 
G ( 1 02 . 1 03 > -G ( 1 02 ♦ 103 ) + ( HO ( J )-S ( J I> *TERM 
65 CONTINUE 


AT THIS POINT PROCESSING OF GASEOUS PRODUCTS 
AND CONDENSED PHASE PROCESSING IS BEGUN 


HAS BEEN COMPLETED 


STATEMENT 70 IS FOR CONDENSED PRODUCTS* 101 IS FOR NO CONDENSED 

66 IF IICOND-2) 70,101.101 
70 K=L1 

DO 100 J» Ml *N 
CALL BYPASS (J,l) 

IF { I PROD-2 ) 100*74*100 

74 00 75 r=l,L 
G ( I *K ) *A < I * J ) 

75 CONTINUE 


STATEMENT 80 IS FOR FIXED T» 85 IS FOR VARIABLE T AND CONVERGED 
FIXED T 


IF fJFJXT-2) 80,65,85 
80 G( K»IQ2 )= HO(J|-S(J> 
GO TO 95 

85 G{ K, IQ2 ) = HO ( J ) 

G ( K » IQ3 ) * HO ( J ) -S ( J > 


STATEMENT 95 IS FOR ENTHALPY, STATEMENT 90 IS FOR ENTROPY EQUATION 


IF (IHS-21 95,90*90 
90 G( IQ2*K) =S< J) 

95 K+l 
100 CONTINUE 


REFLECT SYMMETRIC PORTIONS OF THE MATRIX 8EF0RE COMPLETING THE 
CONOENSED PHASE CONTRIBUTIONS TO THE MATRIX 

101 DO 104 I “1 » I SYM 
DO 102 J=I » I SYM 
GCJ,I>»G(1,J) 

102 CONTINUE 
104 CONTINUE 


THE ADDRESS OF THE NEXT INSTRUCTION IF SET DURING INITIALIZATION 
STATEMENT 105 IS FOR CONDENSED, 130 IS FOR NO CONDENSED 


IF (ICOND-2) 105,130,13 
C 

C COMPLETE COLUMN A OF MATRIX 
C 

105 DO 125 J=M1,N 
CALL BYPASS IJ,1) 

IF ( I PROD— 2 J 125,106,125 

106 DO 107 I “1 , L 

G< I ,101 )=G( I ,I01»+A(I,J»*EN( J) 

107 CONTINUE 

IF ( t FIXT-2 ) 125,109,109 
109 IF ( IHS-2 ) 110,115,115 


2188 

2189 

2190 

2191 

2192 

2193 

2194 

2195 

2196 

2197 

2198 

2199 

2200 
2201 
2202 

2203 

2204 

2205 

2206 

2207 

2208 

2209 

2210 
2211 
2212 

2213 

2214 

2215 

2216 

2217 

2218 

2219 

2220 
2221 
2222 

2223 

2224 

2225 
22 26 

2227 

2228 

2229 

2230 

2231 

2232 

2233 

2234 

2235 

2236 

2237 

2238 

2239 

2240 

2241 

2242 

2243 

2244 

2245 

2246 

2247 



110 G(IQ2*IQ1>« G(IQ 2 »lQn+HO(J>*EN(J) 

GO TO 125 

115 G<IQ2*IQ1>» GCIQ2*IQ1»+S<J)*ENU) 

125 CONTINUE 

130 GO TO im.m>*IFIXT 

131 KMAT-IQ2 
GO TO 136 

133 KMAT-I03 
136 IMAT-KMAT-1 

C COMPLETE THE RIGHT HAND SIDE 
C 

DO 165 I-l.IMAT 
G ( I tKMAT t-G( I »KHAT >-G< I *1Q1 ) 

165 CONTINUE 

DO 150 I -1 *L 

G ( I »KMAT ) ■ GU.KMATI + AAY*B0< 1 1 
150 CONTINUE 

P> GMOlflOll 

160 G( IQ1 * KMAT I « GU01.KMATI + PO 
G( 101 » 101 ) *0*0 

C COMPLETE ENERGY ROW AND TEMPERATURE COLUMN 
C 

IF (KMAT-I02) 165*185*165 

165 IF UHS-2) 166*168*168 

166 ENERGY-AAY* (HSUBO/T I 
GO TO 169 

168 ENERGY- AAY*SO*P0“P 

169 G<IQ2»IQ3)*G< 102*1031+ ENERGY 
G<IO2*I02>- G ( 1 02 * 1 02 ) +CPSUM 

185 RETURN 


2268 

2269 

2250 

2251 

2252 

2253 

2256 

2255 

2256 
225? 

2258 

2259 

2260 
2261 
2262 
2263 
2266 

2265 

2266 

2267 

2268 

2269 

2270 

2271 

2272 

2273 
2276 

2275 

2276 

2277 

2278 

2279 



71 


MAIN PROGRAM ' 
FROZEN COMPOS 


THREE 

IT ION EXPANS I< 


IGllli 
( FORM! I ) » 

I ELMT { 1 ) » 

(DATAIlli 

(Am* 

ICOEFTIl), 

( ANSI 1 ) » 

(HSUM* 

(WTMOL* 

(DLMPT » 

(GAMMA* 

(VMACH* 

( VACI » 

( RHOI • 
(RHO* 

IT PI. 

(EP PI. 

IT ETA. 

I ETA I* 

(AW ETA. 
ISIG I. 

(AW S JG , 
(ENI I). 
IBOXm. 
IBOFI1J. 
(HX. 

I VXPLS* 
IVFPLS. 

(EN LN (II. 
I DEL Nil). 


( G 1 420 ) * 
(FORM! 15) » 

( ELMT 115}* 

( DATA I 23 J . 
(A( 13301 . 

{ COEFT ( 1350 ) 
(ANSI 454) . 
ISSUM. 

(CP. 

(OLMTP. 

IARATIO. 

(SP IMP. 

(CF. 

(RHOVAC. 


CI420M 
Cl 15) I 
COO) » 

Cl 53 ) ) 

CI1770H 

*CI 1770) ) 

CI874)) 

CI425 ) ) 

CI427I) 

CI429U 

CI431J) 

CI433M 

CI436) } 

CI438)) 


(ENI90) . 
(BOX (15). 

( BOF ( 15 ) . 
(HF. 

(VXMIN. 

(VFMIN. 

(EN LNI 90 ) * 
(DEL N ( 90 I » 


EQUIVALENCE 

(COEFX(l) 

Cl 1951 ) ) , 

( COEFX ( 20 ) , 

Cl 1970) I 

2315 

EQUIVALENCE 

IDXI1). 

C 1 1951 ) ) , 

(DXI20). 

Cl 1970) ) 

2316 

equivalence 

I HO 1 1 ) . 

Cl 2041 ) ) , 

IH0I90). 

Cl 2130) ) 

2317 

EQUIVALENCE 

(Sill. 

Cl 2131 ) ) , 

(SI90 ) , 

Cl 2220) ) 

2318 

EQUIVALENCE 

1X11). 

C ( 2221 ) ) • 

(XI20). 

Cl 2240) > 

2319 

EQUIVALENCE 

(FORMLAI 1 ) * C 1 2221 ) ) . 

(FORMLAI 18 ) 

, Cl 2238 ) ) 

2320 

EQUIVALENCE 

I DELTA! 1 ) 

C 1 2241 ) ) , 

(DELTA! 20), 

Cl 2260 ) ) 

2321 

EQUIVALENCE 

(B0I1). 

C 1 2261 ) ) . 

(60(15). 

CI2275) ) 

2322 

EQUIVALENCE 

IPO. 

Cl 2276) ) t 

(HSUBO, 

CI2277 ) ) 

2323 

EQUIVALENCE 

ISO. 

CI2278) ) . 

IT LN. 

CI2279)) 

2324 

EQUIVALENCE 

IT. 

C ( 2280 ) I , 

(AAY LN. 

C (2261 ) ) 

2325 

EQUIVALENCE 

1 AAY » 

C (2262 ) > . 

ICPSUM. 

Cl 2283 ) ) 

2326 

EQUIVALENCE 

IHC. 

C (2284 ) ) . 

(TC LN. 

Cl 2285 ) ) 

2327 

EQUIVALENCE 

(PCPIl). 

C( 2286 ) ) , 

(PCPI25). 

Cl 2310) ) 

2328 

EQUIVALENCE 

1 PROD (1). 

Cl 2311 ) ) . 

(PR0D(3). 

CI2313) ) 

2329 

EQUIVALENCE 

( DATUM! 1) 

Cl 2311 ) ) . 

I DATUM! 3 ) » 

Cl 2313) ) 

2330 

EQUIVALENCE 

(PC, 

C 1 2314 ) > , 

(TC. 

CI2315)) 

2331 

equivalence 

( IPROB, 

Cl 2316) ) , 

IIFIXT. 

CI2317) ) 

2332 

EQUIVALENCE 

UHSt 

C12318 ) ) * 

(ICONDt 

CI2329) ) 

2333 

EQUIVALENCE 

< ISYM, 

Cl 2320) ) » 

1 1 PROD. 

CI2321 ) ) 

2334 

EQUIVALENCE 

< IDID, 

C ( 2322 ) , 

(LDRUM, 

Cl 2323) ) 

2335 

EQUIVALENCE 

I IDRM, 

C( 2323) ) » 

I KDRUM, 

Cl 2324) ) 

2336 

equivalence 

(L. 

Cl 2325)). 

I LI, 

CI2326) > 

2337 

EQUIVALENCE 

(M. 

C 1 2327 ) ) , 

(Ml. 

CI2328) ) 

2338 

equivalence 

IN* 

CI2329 ) ) , 

(IQ, 

Cl 2330 ) ) 

2339 

equivalence 

I 101, 

Cl 2331 ) ) . 

I IQ2, 

CI2332) ) 

2340 

EQUIVALENCE 

(IQ3, 

Cl 2333) ) , 

(KMAT , 

C (2334) ) 

2341 

equivalence 

(IMAT, 

CI2335)). 

1 1 USE, 

CI2335) ) 

2342 

EQUIVALENCE 

( IAOD, 

CI2336M » 

(ITNUMB. 

Cl 2337) ) 

2343 

EQUIVALENCE 

I I TAPE. 

C 1 2338 ) ) . 

IP. 

C 1 2339 1 ) 

2344 

EQUIVALENCE 

I IDEBUG, 

Cl 2340)) • 

I IFROZ, 

C 1 2341 ) ) 

2345 

DIMENSION 

GI20.21). 

Al 15.90). 

EN (90 ) , 

EN LNI 90) 

2346 

2347 

DIMENSION 

DEL Nl 90 ) . 

HOI 90 ) , 

SI 90 ) . 

XI20) 

2346 

DIMENSION 

OELTA{ 20 ) , 

80(15) . 

PCPI25). 

PROD! 3) 

2349 

DIMENSION 

C0EFXI20). 

DXI20). 

FORM 115). 

COEFT 1 15,90 1 

2350 

DIMENSION 

ELMT 1 15 ) > 

DATA( 23) » 

DATUM (31, 

FORMLAI 18) 

2351 

DIMENSION 

BOX 1 15 ) , 

80FI15). 

ANSI 454). 

SYSTMU5) 

2352 

2353 

2354 

NO FROZ-O 





2355 

MISSED-0 





2356 

READ ORUM 4 

l.ANS 




2357 


BEGIN CALCULATIONS FOR CURRENT POINT 

CHECK TEMPERATURE RANGE OF THERMODYNAMIC DATA 


LEAVE FROZEN PROGRAM IF DATA FOR ANY SPECIES RUNS OUT 



35 IF ( I ADO-2 ) 51*37»37 2400 

37 IF (SENSE LIGHT 4» 38,41 2401 

38 SENSE LIGHT 4 2402 

00 40 J*1»N 2403 

IF <COEFT(8,JI) 40*39*4 2404 

39 IF (EN(J)> 40*40*309 2405 

40 CONTINUE 2406 

GO TO 49 2407 

41 00 44 J*1.N 2408 

IF (EN(J)I 44.44*42 2409 

42 IF <COEFT(5,J)+20»0~T) 285*43*43 2410 

43 IF (T-COEFT (4,J)+20.0 I 295.44.44 2411 

285 IF { 5000.0-COEFT ( 5 » J ) J 44,44.311 2412 

295 IF (CO£FT(4»J)-300.0) 44,44,311 2413 

44 CONTINUE 2414 

C 2415 

C BEGIN ITERATION 2416 

C 2417 

49 PCP LN'LOGFtPCPtlADDJ) 2418 

READ DRUM KDRUM.l .COEFT 2419 

51 CP3UM*0.0 2420 

T*EXPF(T LN) 2421 

DO 60 J*1»N 2422 

IF <£N(J>) 60*60,57 2423 

57 CPSUM*CPSUM+< ( I ( COEFT ( 12 , J > *T+COEFT (11 » J) »*T+COEFT ( 10* JI )*T+COEFT( 2424 

19,J)>*7*C0EFTI8.J))*ENU) 2425 

58 HOUJ-1 (HCOEFT(12,J)/5.0I#T+COEFT(ll,JI/4.O)*T+C0EFT(lO,J)/3.0)*T 2426 

1+COEFT(9»J)/2.0)*T +COEFT ( 13 , J) /T+COEFT (8 , J J 2427 

59 S( J)»(( ( (COEFT(12,J)/4.0 ) *T+CO£FT ( 1 1 , J) /3.0 ) *T+COEFT<10» J)/2.0)*T 2428 

1 +COEFT (9, J) )*T+COEFT ( 8 » J ) *T LN+COEFT ( 14, J)-EN LN(J) 2429 

60 CONTINUE 2430 

SUM H«0.0 2431 

SUM S*0«0 2432 

DO 63 J»1,N 2433 

SUM H*SUM H+HO( J) *£N ( J ) 2434 

63 SUM S*SUM S+S( J)*EN( J) 2435 

IF ( I ADD-2 1 81,65,65 2436 

65 IF (SENSE LIGHT 4J 66,81 2437 

66 SENSE LIGHT 4 2438 

67 0 LN T * ( SUM S+<ALPHA*PCP LN)-SO)/CPSUM 2439 

C 2440 

C CHECK CONVERGENCE OF THE ITERATION 2441 

C 2442 

T LN*T LN-0 LN T 2443 

IF (ABSF(D LN TJ-0.5E-4I 73*73,51 2444 

73 IF (SENSE LIGHT 4) 17,17 2445 

81 READ DRUM 4*1»AN$ 2446 

SUM H a T*SUM H/WTMOLF 2447 

CPR«CPSUM/WTMOLF 2448 

GAMMA-CPR/(CPR-(1*0/WTMOL> J 2449 

IF (IAD0-2) 209,191,197 2450 

C 2451 

C CHECK FOR CONVERGENCE AT THROAT 2452 

C 2453 

191 DHSTAR-HC-SUM H - (GAMMA*T/(2.0*WTM0L> J 2454 

IF ( ABSF ( DHST AR / ( HC-SUM HM-0.4E-4) 197,197,192 2455 

192 IF (ITROTJ 193,197,193 2456 

193 PCP(2)«PCP(2I/(1.0+2.0*DHSTAR*WTM0L/(T*(GAMMA+1.0)) I 2457 

SENSE LIGHT 4 2458 

I TROT"! TROT-1 2459 


c GO TO 49 

C CALCULATE PERFORMANCE PARAMETERS 

C 

197 SP IMP*294. 98 »SORTF( (HC-SUM H)*1.98726E“3) 

P"PC/PCP ( I ADD ) 

AW* < 06 ,4579#T J / ( P*WTM0L*1 4. 696006* 5P I MP J 
IF ( I ADD-2) 203,201,203 
201 AWT -AW 

CSTAR«32.17**PC*14.696006*AWT 
203 CF*32 • 174*5P IMP/CSTAR 
ARATIO-AW/AWT 

VACI-SP IMP+P*14.696006*AW 
VMACH«SP IMP/SORTF ( 86.4579*GAMMA*T/WTM0L J 
207 ANS (2 ) “P 
ANS ( 3 ) *T 

209 HSUM-SUM H*l, 98726 
CP*CPR*1«98726 
ANS ( 1 ) *PCP 1 1 ADD)' 

ANS ( 15 ) *CSTAR 

WRITE TAPE 3, (ANSI I), 1*1, 454) 

NO FROZ“NO FROZ+1 
IF (MISSEO) 451,223,451 

223 IADO-IADD+1 

IF ( I ADD-2 ) 1225,224,1225 

224 PCP(2 )■( ( GAMMA+ 1. 0 ) /2. 0)** (GAMMA/ (GAMMA- 1.0 >) 

T LN»T LN+LOGF ( 2*0/ ( GA>(MA+1 .0 ) ) 

1225 IF (IAOD-25) 225,225,451 

225 IF (PCP( I ADD) ) 451,451,227 
227 SENSE LIGHT 4 

GO TO 49 
C 

C ERROR PRINT OUT 
C 

305 WRITE OUTPUT TAPE 6*306»T.IADD 

306 FORMAT (17HLTHE TEMPERATURE*E12.4»26H K, IS OUT OF RANGE, POINT 151 
IF 16000. 0-T) 449,307,307 

307 IF (T-200.0) 449,308,308 

308 GO TO 41 
449 MISSED* 1 

I TROT*0 

IF (SENSE LIGHT 4) 51,51 
451 WRITE DRUM4»794»N0 FR02 

WRITE TAPE 3, (Gill ,1*1,2341) 

CALL PONGf 5) 

309 WRITE OUTPUT TAPE 6,310 , ( COEFT ( 1 »J ) , I *1 ,3 ) , COEFT l 6, J) , COEFT (7 , J> 

310 FORMAT ( 13H6THE SPECIES 3A6.29H HAS NO DATA IN THE INTERVAL 2F9.1) 
BACKSPACE I TAPE 

BACKSPACE I TAPE 

READ TAPE ITAPE, ( (COEFTIK.J) *K*1*15> ,J*1,90) 

WRITE ORUM KDRUM.l, COEFT 
GO TO 449 

311 WRITE OUTPUT TAPE 6*312, <COEFT< !*J) ,1*1,3) »T 

312 FORMAT ( 13H6THE SPECIES 3A6.19H HAS NO DATA AT T* F9.1) 

GO TO 449 


ISA 

2462 

2463 

2464 

2465 

2466 

2467 

2468 

2469 

2470 

2471 

2472 

2473 

2474 

2475 

2476 

2477 

2478 

2479 

2480 

2481 

2482 

2483 

2484 

2485 

2486 

2487 

2488 

2489 

2490 

2491 

2492 

2493 

2494 

2495 

2496 

2497 

2498 

2499 

2500 

2501 

2502 

2503 

2504 

2505 

2506 

2507 

2508 

2509 

2510 

2511 

2512 

2513 

2514 
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COMMON C 
EQUIVALENCE 

( G ( 1 ) , 

can, 

( G I 420) , 

C(420> » 

2518 

2519 

2520 

EQUIVALENCE 

(FORMU) , 

C(l)l* 

(FORM! 15) , 

C ( 15 ) ) 

2521 

EQUIVALENCE 

! ELMT ( 1 ) , 

C ( 16) ) » 

(ELMT (15) , 

C ( 30 ) ) 

2522 

EQUIVALENCE 

( DATA ( 1 ) , 

CI31M, 

(DATA( 23) » 

C ( 53 ) ) 

2523 

EQUIVALENCE 

(All), 

C ( 421 ) ) « 

(AC 1350) » 

C( 1770) ) 

2524 

EQUIVALENCE 

! COEFT ( 1 ) * 

C(421 ) ) , 

(COEFT( 1350), C(1 770)) 

2525 

EQUIVALENCE 

(ANS( 1 1 ♦ 

C(42XM, 

<ANS( 454), 

0874) ) 

2526 

EQUIVALENCE 

(HSUM, 

C(424) )» 

( SSUM, 

C( 425) ) 

2527 

EQUIVALENCE 

tWTMOu, 

C(426) >♦ 

(CP, 

C(427) ) 

2 528 

EQUIVALENCE 

(DLMPT* 

C(428) ), 

(OLMTP* 

C( 429) ) 

2529 

EQUIVALENCE 

(GAMMA, 

C(430) >, 

(ARATIO, 

C(431) ) 

2530 

EQUIVALENCE 

! VMACH, 

C (432 > ) » 

(SP IMP, 

C(433 ) ) 

2531 

EQUIVALENCE 

! VAC I , 

C ( 434 ) ) , 

ICF, 

C(436) ) 

2332 

EQUIVALENCE 

! RHOI , 

C(437) ) , 

(RHOVAC* 

C(438) ) 

2533 

EQUIVALENCE 

EQUIVALENCE 

(RHO, 
(T PI, 

C ( 439) ) 
0440) >» 

(PI I* 

C(441 ) ) 

2534 

2535 

EQUIVALENCE 

! EP PI, 

C ( 442 > ) * 

(AW PI, 

C(443 ) ) 

2536 

EQUIVALENCE 

EQUIVALENCE 

! T ETA, 
(ETA I, 

0(445) ) 

C ( 446 > ) * 

(EP ETA, 

C(447) ) 

2537 

2538 

EQUIVALENCE 

(aw Eta, 

C (448 ) ) * 

(T SIG, 

C(450) ) 

2539 

EQUIVALENCE 

(SIG I, 

C l 451 ) ), 

(EP SIG, 

C(452) ) 

2540 

EQUIVALENCE 

EQUIVALENCE 

(AW SIG, 
( EN ( 1), 

C(453) ) 

C< 1771 ) ) » 

( EN(90) , 

Cl 1860) ) 

2541 

2542 

EQUIVALENCE 

( BOX ( 1 ) * 

C( 1771 II* 

(80X1 15) , 

C(1785)) 

2543 

EQUIVALENCE 

( BOF ( 1 ) , 

C< 1786 ) ) , 

( BOF ( 15), 

C( 1800 ) ) 

2544 

EQUIVALENCE 

( HX , 

C ( 1801 ) ) • 

<HF, 

C< 1802 1 ) 

2545 

EQUIVALENCE 

( VXPLS, 

C( 1803 ) ) , 

(VXMIN, 

C ( 1804 ) ) 

2546 

EQUIVALENCE 

(VFPLS* 

C ( 1805 ) ) ♦ 

(VFMIN. 

C( 1806 ) ) 

2547 

EQUIVALENCE 

(EN LN ( 1 ) » 

C ( 1861 ) ) ♦ 

(EN LN< 90 ) » 

C( 1950) > 

2548 

EQUIVALENCE 

(DEL N( 1) , 

C ( 1951 ) ) , 

(DEL NI90I , 

0(2040) ) 

2549 

EQUIVALENCE 

(COEFX! 1), 

C ( 1951 ) ) * 

(COEFX (20), 

C( 1970) ) 

2550 

EQUIVALENCE 

(DXI1), 

C ( 1951 ) ) » 

(DX (20) » 

C ( 1 970) ) 

2551 

EQUIVALENCE 

< HO ( 1 ) « 

C ( 2041 ) ) * 

(H0(90), 

Ct 2130) ) 

2552 

EQUIVALENCE 

ISI1), 

C( 2131 ) ) » 

(S(90), 

C(2220) ) 

2553 

EQUIVALENCE 

cxm. 

C ( 2221 ) ) » 

(X(20)» 

C( 22“0 ) ) 

2554 

EQUIVALENCE 

( FORMLA ( 1 > 

C(2221»), 

( FORMLA ( 18 ) 

• CC 2238 ) ) 

2555 

EQUIVALENCE 

(DELTA(l), 

CI2241)), 

(DELTA( 20 1 , 

C (2260 1 J 

2556 

EQUIVALENCE 

( BO ( 1 ) , 

C ( 2261 ) I ♦ 

C BO C 15) , 

CC 2275 » ) 

2557 

EQUIVALENCE 

(PO* 

C ( 2276 1 ) , 

(HSU80, 

C(2277)» 

2558 

EQUIVALENCE 

(SO* 

C ( 2278 ) ) , 

(T LN, 

C< 2279) » 

2559 

EQUIVALENCE 

(T, 

C ( 2280 ) ) » 

(AAY LN, 

C ( 2281 ) ) 

2560 

EQUIVALENCE 

( AAY, 

C < 2282 ) ) , 

(CPSUM, 

C ( 2283 ) ) 

2561 

EQUIVALENCE 

<HC» 

C ( 2284) ) , 

(TC LN, 

C ( 2285 ) ) 

2562 

EQUIVALENCE 

IPCP( 1 > , 

C ( 2286 ) ) , 

(PCP ( 25 ) , 

C ( 2310) ) 

2563 

EQUIVALENCE 

(PROO(l ) , 

Ci 23 1 1 ) 1 1 

(PROD <3 ), 

C(23I3J ) 

2564 

EQUIVALENCE 

( DATUM ( 1 ) , 

C ( 2311 ) ) « 

(OATUM( 3) * 

0(2313)) 

2565 

EQUIVALENCE 

(PC, 

C ( 2314 ) ) , 

(TC* 

CC 2315 ) » 

2566 

EQUIVALENCE 

( IPROB, 

C ( 2316 ) ) * 

( IFIXT* 

Ct 2317 ) > 

2567 

EQUIVALENCE 

( IHS, 

C ( 2318 ) ) , 

( ICOND. 

0(2319) ) 

2568 

EQUIVALENCE 

( ISYM, 

C ( 2320 ) ) , 

(IPROD, 

C( 2321 ) ) 

2569 

EQUIVALENCE 

( IDID, 

C ( 2322) ) * 

(LDRUM, 

02323)) 

2570 

EQUIVALENCE 

( I DRM* 

C ( 2323 ) ) , 

(KORUM, 

0 2324) ) 

2571 

EQUIVALENCE 

(L, 

C ( 2325 ) ) , 

(LI, 

02326) ) 

2572 

EQUIVALENCE 

(M, 

C( 2327 ) ) , 

(Ml* 

0 2 328) ) 

2573 

EQUIVALENCE 

(N, 

C ( 2329 ) ) ♦ 

( IQ, 

0 2330 ) ) 

2574 

EQUIVALENCE 

( IQ1 , 

C(2331H , 

( IQ2, 

02332) ) 

2575 

EQUIVALENCE 

( IQ3 , 

C( 2333) ) * 

KMAT, 

C ( 2334 ) ) 

2576 

EQUIVALENCE 

( IMAT, 

C( 2335 ) ) * 

( I USE , 

0 2335)) 

2577 


EQUIVALENCE (IADD* 
EQUIVALENCE ( ITAPE, 
EQUIVALENCE ( I DEBUG* 

EQUIVALENCE (PI »C( 875 ) ) 
EQUIVALENCE (71*0 8 76)) 
EQUIVALENCE IHl.CJ 877 >) 
EQUIVALENCE I AMI *C ( 878 ) ) 
EQUIVALENCE ( CON »C( 879 ) I 
EQUIVALENCE ( GAMF *C ( 880 ) ) 
EQUIVALENCE(UUS »C ( 881 ) ) 
EQUIVALENCE IKODE.C I 882) ) 
EQUIVALENCE (US * C ( 88 5 ) ) 
EQUIVALENCE ( PPP »C ( 886 ) ) 
EQUIVALENCE (TTT*CI887)) 
EQUIVALENCE < TE ,C ( 886 1 ) 
EQUIVALENCE (TEM»C(889) ) 
EQUIVALENCE! AMD »C( 890 )) 
EQUIVALENCE (UD»C 1 89 1 M 


DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 


0 ( 20 > 21 1 » 
DEL N ( 90 ) , 
DELTA ( 20 ) , 
COEFX ! 20 ) , 
ELMT < 151 * 
80X ( 15 ) * 


EN LN(90) 

X ( 20 ) 

PROD 1 3 ) 

COEFT ( 15,90) 
FORMLA ( 18 J 
SYSTM( 15 ) 


READ DRUM 4,483* JEAN 
IF( JEAN-101) 100* 101, 100 

100 WRITE OUTPUT TAPE 6,2 

2 FORMAT (38H1 DETONATION VELOCITY 
REAO DRUM 4,482 *KOOE 
READ DRUM 4,790*0OF 
READ DRUM 4,1516. ACX»ACF*AMX»AMF 
PPP-15,0 

CON-(ACF+OOF*ACX)/< 1,0+OOF) 

AM 1 =AMX *AMF* ! 1 • O+OOF ) / ( AMX+OOF*AMF ) 
WRITE OUTPUT TAPE 6,102 *KODE 
102 FORMAT r4X»5HK0DE-ll ) 

PCP(1)-1.0/PPP 

PCP(2)-0»O 

R-l. 98726 

TTT-0.0 

Hl-HSUB0*R 

P1»PC 

Tl-TC 

PC-PC*14. 696006 

ITR-0 

JEAN-101 

20 HSUB0-H1/R+.75*T1/AM1*PPP 

22 WRITE DRUM 4 ,475, PI ,T1 * AMI ,H1 , I TR ,R 

21 CALL PONG (2 ) 

101 READ DRUM 4.1.ANS 

RE\D DRUM 4.475.P1,T1,AM1,H1,ITR,R.' 
GAM-GAMMA 
IF(KODE>91,92»91 
91 GAMMA-GAMMA*! 1.0+DLMPT) 



92 


200 


203 

206 

202 

205 


PPP-ANS ( 2 ) /PI 
TTT-ANSI3J/T1 
E-PPP 
EE-TTT 

IF{ I TR ) 201 * 200*201 
TEMM-WTM0L/AM1 
11*0 

WRITE OUTPUT TAPE 6.203*11* PPP.TTT 
DO 202 11*1*7 
TEM*TEMM/TTT*GAMMA 
PPPP*( 1.0+GAMMA)/(2.0*TEM>* 
2(l»0+SQRTF(1.0-A,0*TEM/<1.0+GAMMAJ«*2n 
TE*TEM/GAMMA*PPPP 

TTTT*EE-.75*R/(AM1*CP}*E+GAMMA*R/(2»*AM1#CP)*( (TE**2-1.0)/TE)*PPPP 
WRITE OUTPUT TAPE 6*203*1 1 »PPPP*TTTT 
FORMAT (I5.2E20.8) 

IF(ABSFIPPPP-PPP)-.1)205»205*206 

ppp.pppp 

TTT*TTTT 

CONTINUE 

PCPm»Tl*TTTT 

pc«pi*pppp 


TC*0,0 

IPROB-3 


ITR*1 
GAMMA*GAM 
GO TO 22 

201 TEMM-PPP/TTT*WTM0L/AM1 

TEM*( 1. O-GAMMA* (TEMM-l.OM 
An«1.0/PPP-GAMMA»TEMM*Il*0+DLMPTI 
A 1 2 -G AMMMT EMM* ( 1 * 0-OLMT P 1 

A21«GAMMA/2.0*(0LMPT+TEMM*#2»(2.0+DLMPT1 l-DLMTP 
HAL“GAMMA/2.0*<TEMM*»2+1.0) 
A22«HAL*<0LMTP-1.0)-WTM0L*CP/R 
B1«1*0/PPP-TEM 

B2-WTM0L/ < R*ANS< 3 ) ) *( HSUM-H1 ) -GAMMA/2 *0* ( TEMM**Z-1 . 0 > 
ASSIGN 51 TO JJ 

50 EEM»A11*A22-A21*A12 
X1*IB1*A22-B2#A12J/EEM 
X2« (A11*B2-A21»B1 » /EEM 

GO TO JJ. (51. 52*53* 59) 

51 TE*A8SF(X1) 

TEM*ABSF(X2) 

IFITE-. 4)94. 9*»95 

94 I F I TEM-. 4 >96.96.95 

96 ALAM*1.0 
GO TO 97 

95 IF I TE-TEM) 93*93 *98 
93 HAL“TEM 

GO TO 99 

98 HAL=TE 

99 AL AM*. 4 /HAL 

97 PPPP-PPP*£XPFIX1*ALAM) 

TTTT*TTT*EXPF < X2*ALAM ) 

301 US*91. 18496 *SORTF ( GAMMA*ANS( 3 > /WTMOL > 

U0»TEMM*US 

PCP(1)*T1*TTTT 

PC*P1*PPPP 

TC*0.0 

IPR0B*3 


2635 

2636 

2637 

2638 

2639 

2640 

2641 

2642 

2643 

2644 

2645 

2646 

2647 

2648 

2649 

2650 

2651 

2652 

2653 

2654 

2655 

2656 

2657 

2658 

2659 

2660 
2661 
2662 

2663 

2664 

2665 

2666 

2667 

2668 

2669 

2670 

2671 

2672 

2673 

2674 

2675 

2676 

2677 

2678 

2679 

2680 
2681 
2682 

2683 

2684 

2685 

2686 

2687 

2688 

2689 

2690 

2691 

2692 

2693 

2694 


TEM*PPPP/TTTT*TE 

E-X1**2+X2**2 

EE=SQRTF(El 

WRITE OUTPUT TAPE 6»10»ITR 

10 FORMAT I21H0 ITERATION NUMBER* 12* 10X.3HOLD. l?X.3HNEW//> 

WRITE OUTPUT TAPE 6»30.PPP*PPPP*TTT»TTTT*TEMM»TEM.X1.X2*US.U0.E 

2. EE 

30 FORMAT f 6X.4HP/P1 . 10X . 1H-2E20.8/6X.4HT/T1 . 10X . 1H=2E20.8/6X*8HRH0/RH 
101 »6X » 1H*2£20*8/6X * 1 1HDEL LN P/P1.3X*1H=E20. 8/6X. 11HDEL LN T/T1*3X 
2 . 1H=E20.8/6X.2HUS* 12X.1H B E20*8/6X. 2MU0. 12X» 1H*E20«8/6X*1HE»13X»1H“ 
3E20.8/6X.13HS0R ROOT O e E*1X.1H»E20.8 > 

PPP*PPPP 

TTT-TTTT 

IF ( ABSF ( XI )— .5E-05 >11*11*12 

11 IF ( ABSF ( X2 I-.5E-05 113*13*12 

12 I F t ITR- 10 114.13*13 
14 I TR*I TR+1 

ASSIGN 21 TO I 
GAMMA-GAM 
60 TO 22 

13 JEAN-10 

WRITE DRUM 4.403. JEAN 

p.ppp*pi 

T-TTT*T1 

US-91 • 18496 *SQRTF I GAMMA*T /WTMOL ) 

UD-TEKMJS 

WRITE OUTPUT TAPE 6.31 

31 FORMAT f 17H1 FINAL ANSWERS//) 

WRITE OUTPUT TAPE 6.32.PPP.TTT.TE»TEM*P»T»WTM0L*P1 »T1 *AM1 .US.UD 
2. CON 

32 FORMAT I6X.4HP/P1»10X»1H=E20.8/6X*4HT/T1»10X.1H-E20»8/6X.4HM/M1»10 
2X* 1H*E20»8/6X.8HRHO/RHOI»6X*1H*E20.8 /6X.1HP ♦ 13X* 1H-E20.8 /6X41HT *13 
3X» 1H*E20*8/6X»1HM. 1 3X » 1H B E20*6/6X*2HP1*12X* 1H-E20.8/6X * 2HT1 »12X*1H 
4»£20. 8/6X.2HM1 . 12X * 1H=E20« 8/6X. 2HuS. 12X . 1H=E20* 8/6X *2HUD* 12X»1H=E2 
50.8/6X »2HCP . 12X»1H«E20«8 ) 

IF(CON)41*40*41 

41 GAMF-C0N/CC0N-R/AM1) 

AMD-U0/I91. 18496*S0RTF (GAMF*T1/AM1 ) ) 

WRITE OUTPUT TAPE 6.42 »GAMF. AMO 

42 FORMAT ( 6X.7HGAMMA F»7X * 1H«£20*8/6X .2HM0. 12X » 1H-E20.8 ) 

GO TO 150 

40 6AMF-0.0 
AMD-0.0 

150 FEM°»5* ( 2.0+DLMPT ) 

TEMM-.5*tDLM7P-1.0) 

WRITE OUTPUT TAPE 6*55 

55 FORMAT ( 17H0 DERIVATIVE 0F.12X.4HLN P.13X.4HLN T.13X,5HLN UD/4X* 
22HBY I 

B1-1.0/PPP-GAMMA*TEM 
82-GAMMA* TEM#*2 
ASSIGN 53 TO JJ 
GO TO 50 

53 CASE1- ( FEM*X1 + TEMM*X2— 1 #0 )*UD 
Xl-Xl-1.0 

WRITE OUTPUT TAPE 6.81 ,X1 *X2 .CASE1 
81 FORMAT (6X.12HLNP1 AT T1 *G. 7X . 1H-3E17.8 ) 

WRITE DRUM 4* 1507 »X 1 *X2 >CAS£1 
B1*GAMWA#TEM 

B2*-B1»TEM-WTMOL«CON/R/TTT 


2695 

2696 

2697 

2698 

2699 

2700 

2701 

2702 

2703 

2704 

2705 

2706 

2707 

2708 

2709 

2710 

2711 

2712 

2713 

2714 

2715 

2716 

2717 

2718 

2719 

2720 

2721 

2722 

2723 

2724 

2725 

2726 

2727 

2728 

2729 

2730 

2731 

2732 

2733 

2734 

2735 

2736 

2737 

2738 

2739 

2740 

2741 

2742 

2743 

2744 

2745 

2746 

2747 

2748 

2749 

2750 

2751 

2752 

2753 

2754 



ASSIGN 59 TO JJ 
60 TO 50 

59 CASE4=<FEM*X1+TEMM»X2+I.0)*UD 
X2*X2-1«0 

WRITE OUTPUT TAPE 6 *84. XI .X2.CASE4 

84 FORMAT (6X.16HLNT1 AT PI .HI .Ml .3X.1H-3E17.8 l 
WRITE DRUM 4. 1510.X1.X2.CASE4 

B1»0.0 

82— WTMOL/(R*T> 

ASSIGN 52 TO JJ 
GO TO 50 
52 X1»X1*1000.0 
X2-X2*1000.0 

CASE5«(FEM*X1+TEMM»X2)»U0 

WRITE OUTPUT TAPE 6 .85 .XI .X2 .CASE5 

85 FORMAT I6X.20HH1 AT T1.P1.M1 -3E17.8) 

WRITE DRUM 4. 1513 . XI .X2.CASE5 
GAMMA-GAM 

IPROB-1 

UUS-91 . 18496*SQRTF tGAMF *71/ AMI > 

CALL OUT 
CALL PONG(l) 


2755 

2756 

2757 

2758 

2759 

2760 

2761 

2762 

2763 

2764 

2765 

2766 

2767 

2768 

2769 

2770 

2771 

2772 

2773 

2774 

2775 

2776 



SUBROUTINE OUT 2777 


COMMON C 
EQUIVALENCE 

(Gil) » 

C(l) ). 

(G(420). 

C ( 420) ) 

2770 

2779 

2780 

EQUIVALENCE 

( FORM ( 1 1 . 

C( 1 > ) . 

( FORM (15) , 

C(15) ) 

2781 

EQUIVALENCE 

(ELMT(l) . 

C( 16) ) . 

I ELMT ( 15) . 

COO) ) 

2782 

EQUIVALENCE 

( DATA { 1 ) » 

com. 

(DATA (23) . 

C( 53 ) ) 

2783 

EQUIVALENCE 

( COEFT ( 1 ) » 

C (421 ) ). 

( COEFT ( 1350 

,C< 1770) ) 

2784 

EQUIVALENCE 

( AN S ( 1 ) » 

C (421 ) ) • 

(ANS(454) . 

C ( 874 ) ) 

2785 

EQUIVALENCE 

(HSUM. 

C ( 424 ) ) . 

(SSUM. 

CI425) ) 

2786 

EQUIVALENCE 

(WTMOL* 

C ( 426 ) ) . 

(CP. 

C(427) ) 

2787 

EQUIVALENCE 

< DLMPT * 

C (428 ) ) . 

(DLMTP. 

C(429) ) 

2788 

EQUIVALENCE 

(GAMMA. 

C ( 430 ) ) * 

(ARATIO. 

C ( 431 ) ) 

2789 

EQUIVALENCE 

( VMACH. 

C<432) )♦ 

(SP IMP* 

C ( 433 ) ) 

2790 

EQUIVALENCE 

(VACI . 

C(434) ) ♦ 

(CF* 

CI436) ) 

2791 

EQUIVALENCE 

(RHOI , 

C ( 437 ) ) . 

(RHOVAC* 

C ( 438) ) 

2792 

EQUIVALENCE 

EQUIVALENCE 

(RHO. 
<T PI. 

C ( 439 ) ) 

C ( 440 ) ) . 

(PI I. 

C ( 44 1 ) > 

2793 

2794 

EQUIVALENCE 

(EP PI. 

C ( 442 ) ) . 

(AW PI. 

C(443) I 

2795 

EQUIVALENCE 

EQUIVALENCE 

(T ETA* 
(ETA I. 

C ( 445) ) 

C (446) ) . 

(EP ETA. 

C ( 447 ) ) 

2796 

2797 

EQUIVALENCE 

(AW ETA* 

C ( 448 ) ) . 

(T SIG, 

C ( 450 ) ) 

2798 

EQUIVALENCE 

(SIG 1# 

C( 451 ) ) . 

(EP SIG, 

C( 452 ) ) 

2799 

EQUIVALENCE 

EQUIVALENCE 

(AW SIC. 
( EN( 1 ) ♦ 

C ( 453 ) ) 
C(177n> 

(EN(90) . 

C( 1860 ) ) 

2000 

2801 

EQUIVALENCE 

( BOX ( 1 ) . 

C ( 1771 ) ) 

(BOX ( 15 ) , 

C ( 1785 > ) 

2802 

EQUIVALENCE 

(BOF(l). 

C ( 1786 ) ) 

(BOF ( 15 ) , 

CI1800) ) 

2803 

EQUIVALENCE 

(HX. 

C ( 1601 ) ) 

(HF, 

C( 1802 ) ) 

2804 

EQUIVALENCE 

(VXPLS* 

C ( 1803 ) ) 

(VXMIN. 

C( 1804) ) 

2805 

EQUIVALENCE 

IVFPLS* 

C 1 1805) ) 

(VFM1N. 

C11806)) 

2806 

EQUIVALENCE 

(EN LN( 1 ) » 

C ( 1861 ) ) 

(EN LN ( 90 ) , 

C ( 1950 ) ) 

2807 

EQUIVALENCE 

(DEL N( 1 ) * 

C ( 1951 ) ) 

(DEL NI90), 

C ( 2040 ) ) 

2808 

EQUIVALENCE 

(COEFXfl) » 

C ( 1951 ) ) 

(COEFX( 20 ) , 

C( 1970 > ) 

2809 

EQUIVALENCE 

( DX < 1 ) » 

C ( 1951 ) ) 

( OX (20) , 

C ( 1970) ) 

2810 

EQUIVALENCE 

( HO ( 1 ) » 

C( 2041 ) ) 

(H0(90 ) , 

C(2130> > 

2811 

EQUIVALENCE 

ism. 

C (2131 ) ) 

( S < 90 ) » 

C ( 2220 ) ) 

2812 

EQUIVALENCE 

IX(1>* 

CC2221)) 

( X ( 2 0 ) * 

C ( 2240 ) ) 

2813 

EQUIVALENCE 

(FORMLA(l) 

C ( 2221 ) ) 

(FORMLA (18) 

,C( 2230 ) ) 

2814 

EQUIVALENCE 

( DELTA! 1 ) . 

C(2241 ) ) 

( DELTA! 20 ) * 

C (2260 > ) 

2815 

EQUIVALENCE 

(BOIl)* 

C 12261 > ) 

180(15) » 

C ( 2275 ) ) 

2816 

EQUIVALENCE 

(PO. 

C ( 2276 ) ) 

(HSUBO. 

C ( 2277 ) ) 

2817 

EQUIVALENCE 

(SO* 

C ( 2278 ) ) 

(T LN, 

C<2279) ) 

2818 

EQUIVALENCE 

(T. 

C ( 2280 ) ) 

(AAY LN. 

C 12281 ) ) 

2819 

EQUIVALENCE 

( AAY » 

C ( 2282 ) ) 

(CPSUM, 

C ( 2283 ) ) 

2820 

EQUIVALENCE 

(HC. 

C(2264) ) 

(TC LN. 

C ( 2285 ) ) 

2821 

EQUIVALENCE 

(PCP(1)» 

Cl 2286 » ) 

(PCP( 25 ) . 

C(2310) ) 

2822 

EQUIVALENCE 

< PROD ( 1 ) ♦ 

C( 2311 ) ) 

( PROD ( 3 ) . 

C( 2313 ) ) 

2823 

EQUIVALENCE 

(DATUM! 1) ♦ 

C< 2311 ) ) 

( DATUM! 3) » 

0(2313) ) 

2824 

EQUIVALENCE 

(PC. 

C(2314) ) 

(TC. 

C(2315) > 

2825 

EQUIVALENCE 

{ 1PR0B. 

C (2316) ) 

(IF1XT, 

Ct 2317 ) ) 

2826 

EQUIVALENCE 

< IHS. 

C( 2316 ) ) 

{ ICOND, 

C( 2319 ) > 

2827 

EQUIVALENCE 

( ISYM. 

C(2320)) 

(I PROD, 

C< 2321 ) ) 

2828 

EQUIVALENCE 

( IDID. 

C ( 2322 ) ) 

(LDRUM, 

Cl 2323 ) ) 

2829 

EQUIVALENCE 

( IDRM. 

C (2323 ) ) 

(KORUM, 

C I 2324) ) 

2830 

EQUIVALENCE 

(L. 

CI2325) > 

(LI, 

C( 2326) ) 

2831 

EQUIVALENCE 

(M. 

C( 2327) ) 

(Ml, 

C ( 2328 > ) 

2832 

EQUIVALENCE 

(N. 

C ( 2329) ) 

(IQ. 

CC2330 > ) 

2833 

EQUIVALENCE 

(101. 

C ( 2331 ) ) 

( 102 * 

C 12332 > ) 

2834 

EQUIVALENCE 

( IQ3. 

C( 2333 > ) 

( KMAT , 

C<2334>) 

2835 

EQUIVALENCE 

UMAT* 

Ct 2335) ) 

(1USE. 

C (2335) ) 

2836 


EQUIVALENCE ( IADD* C<2336)>. ( ITNUM8 * Ct 2337 » ) 

EQUIVALENCE (JTAPE. C<2338>>, (P* C(2339>) 

EQUIVALENCE ( I DEBUG* C(2340>)» (IFROZ. C(2341») 

EQUIVALENCE! PI »C< 875 ) ) 

EQU I VALENCE (T1»C{ 876) ) 

EQUIVALENCE (HI »C( 877) ) 

EQUIVALENCE (AMI *C( 878 ) ) 

EQU1VALENCE(C0N»C( 879) ) 

EQUIVALENCE (GAMF.C ( 880) ) 

EQUIVALENCE <UUStC< 881) ) 

EQUIVALENCE (KODEtC ( 882) ) 

EQU I VALENCE (US. C( 885)1 
EQUl VALENCE (PPP»C( 886)) 

EQUIVALENCE ( TTT.C ( 887 ) ) 

EQUIVALENCE ( TE.C( 888 ) ) 

EQUIVALENCE t TEM»C( 889) ) 

EQUIVALENCE (AMO .C ( 890) ) 

EQUIVALENCE (UO»C( 891.) > 

EQUIVALENCE ITITLEt 1)»C( 892)) .(TITLE! 315) »C( 1206)) 
EQUIVALENCE ( AMOL ( 1 ) »C 1 1207 ) ) . ( AMOL ( 105 ) »C ( 131 1 ) > 
EQUIVALENCE (A(l).CI 1312)) .(A(690I.C (2001) ) 


DIMENSION 

G( 20,21 ) , 


EN (90 ) , 

DIMENSION 

DEL N( 90 ) » 

H0(90) ♦ 

5(90) » 

DIMENSION 

DELTA! 20) » 

80(15), 

PCP ( 25 ) , 

DIMENSION 

COEFX! 20) * 

DX ( 20 ) » 

FORM! 15) 

DIMENSION 

ELMT ( 15 ) , 

DATA! 23 ) . 

DATUM! 3) 

DIMENSION 

BOX ( 15 ) , 

BOFI15). 

ANS (454 ) 


DIMENSION T1TLEO.105) .AMOL 1 1 *105) ♦ A( 15 .46) 


EN LN ( 90 ) 

X ( 20 ) 

PROD I 3) 

COEFT { 15*90) 
FORMLA ( 18 ) 
SYSTM (15) 


2 FORMAT ( 9H0CASE NO. I5.F8.2.F8.2) 

3 FORMAT (1H0.64X.52HWT FRACTION ENTHALPY STATE TEMP HEAT CAP 
2ACI TY/25X.16HCHEMICAL FORMULA, 24X, 10H(SEE NOTE) .4X.7HCAL/M0L.12X* 
35HDE6 K.5X.13HCAL/MOL-OEG K) 

4 FORMAT (1H0.84X.46HWT FRACTION ENTHALPY STATE TEMP CP / 

225X * 16HCHEMICAL FORMULA. 44X , 10H( SEE NOTE ) .4X.7HCAL/MOL.9X.5HDEG K) 

5 FORMAT! 1H+.63X.F9.5 *F12»3.4X. A1 .F10.2.F11.4 ) 

6 FORMAT 1 1H+* 83X *F9»5.F12»3.4X.A1.F10»2.F11.4) 

7 FORMAT ( 1H0»30X*4H0/F=F9.6.15H. PERCENT FUEL«F8.4.20H, EQUIVALENCE 
1 RATI0=F7.4_) 

20 FORMAT (43X.46HDET0NATI0N PROPERTIES OF AN IDEAL REACTING GAS) 

21 FORMAT (43X.45HCALCULATED USING SPECIFIC HEAT RATIO AS GAMMA) 

22 FORMAT < 1H0.24HTHERMODYNAMIC PROPER ITES/27X* 12HUNBURNED GAS. 5X.10 
2HBURNED GAS) 

23 FORMAT (1X.6HP, ATM.20X .F12.5 .3X .F12.5 ) 

24 FORMAT (1X.8HT, DEG K.18X.F12.2.3X.F12.1 ) 

25 FORMAT (1X.9HH, CAL/G .17X.F12.1 .3X.F12.1 ) 

26 FORMAT (1X.15HS. CAL/G-OEG K .26X.F12.4) 

27 FORMAT (1X.11HM. MOL. WT.15X.F12.3.3X.F12.3) 

28 FORMAT (1X.16HCP, CAL/G-DEG K .10X.F12.4.3X.F12.4) 

29 FORMAT ( 1X.12H(DLNM/DLNP)T»14X.F12.5»3X,F12.5) 

30 FORMAT ( IX, 12H (DLNM/DLNT ) P.14X.F 12.4.3X.F12.4 ) 

31 FORMAT (1X.5HGAMMA.21X.F12.4.3X.F12.4) 

32 FORMAT ( 1X.9HUS. M/SEC . 17X.F12. 1 .3X ,F12. 1 ) 

33 FORMAT ( 1HO/1X.40H8URNED GAS COMPOSITION IN MOLE FRACTIONS//) 

34 FORMAT ( 1H0/1X.21HDET0NAT ION PARAMETERS. 

22X»27H.(U0 IN M/SEC. HI IN KCAL/G) ) 

35 FORMAT t 1H0 .4HP/P 1 »4X*1H“F7 .3.5X*21H(0L(P/P1) /DLP1 )T1»H1=F6»5.5X.1 
28H ( DL ( P/Pl ) /DLT1 > P1 S F0.5 »5X,20H(DL t P/Pl ) /DH1) PI »T1=F8» 5 ) 


2837 

2838 

2839 

2840 

2841 

2842 

2843 

2844 

2845 

2846 

2847 

2848 

2849 

2850 

2851 

2852 

2853 

2854 

2855 

2856 

2857 

2858 

2859 

2860 
2861 
2862 

2863 

2864 

2865 

2866 

2867 

2868 

2869 

2870 

2871 

2872 

2873 

2874 

2875 

2876 


2879 

2880 
2881 
2882 

2883 

2884 
2865 
2886 

2887 

2888 

2889 

2890 

2891 

2892 

2893 

2894 

2895 

2896 



77 



2897 

2898 

2899 


38 FORMAT I 1X»9HRH0/RH01=F7.4> 

39 FORMAT (1X.9HMACH NO.*F7.4» 

40 FORMAT (1X.9HUD *F7.1 ,5X » 16H( D UD/DLP1 JT1.H1»4X,1H=F8.2,5X»13 

1H I 0 UD/DLT1)P14X»1H=F8.2,5X»15H(D UD/DH1 )P1,T1«4X,1H*F8«2> 

READ DRUM 4 , 789 >KASE .OOF.PERCF.EQUI V 
READ DRUM 4.1503.KD 
READ DRUM 4.1700.N 
1000 WRITE OUTPUT TAPE 6,18 
18 FORMAT (1H1) 

552 REWIND 3 

300 READ TAPE 3 , < ANS(I) , I =1 .454 > 

HAL*P1*14. 696006 
1=1 
J=38 

DO 350 JJ=1 * N 
AM0L(1»I)*ANS(JJ 
J* J+4 

350 1=1+1 

WRITE OUTPUT TAPE 6.20 
IF ( KODE I351.352.351 

351 WRITE OUTPUT TAPE 6.21 

352 CONTINUE 
S STZ ZERO 

106 J=34 

DO 104 I =1 »N 
DO 105 11=1.3 
KK= J+ 1 1 

105 TITLE! 1 1 *11 *ANS<KK) 

104 J= J+4 


2900 

2901 

2902 

2903 

2904 

2905 

2906 

2907 

2908 

2909 

2910 

2911 

2912 

2913 

2914 

2915 

2916 

2917 

2918 

2919 

2920 


2923 

2924 

2925 

2926 

2927 

2928 


READ DRUM 4.795.A.NF.NO.NE.ELMT 2929 

ASSIGN 90 TO JEAN 2930 

92 WRITE OUTPUT TAPE 6.2 .KASE.HAL.T1 2931 

GO TO JEAN. (90.91) 2932 

90 IF ( KD ) 93.94.93 2933 

94 WRITE OUTPUT TAPE 6*3 2934 

GO TO 97 2935 

93 WRITE OUTPUT TAPE 6.4 2936 

97 IF(NF)451.450,451 2937 

451 DO 100 1=1. NF 2938 

11=1 2939 

MM= 15 2940 

CALL SPEC! 1 1 »MM» A.ELMT »KD I . 2941 

IF(KD)401, 400.401 2942 

400 WRITE OUTPUT TAPE 6.5. A <! .34 ) .A (1 .32 ) .A ( I .42) »A< 1 .44) .At I .36 I 2943 

GO TO 100 2944 

401 WRITE OUTPUT TAPE 6.6. At 1 .341 .A< 1 .32 1 .At I .42 J .A ( 1 ,44 ) .At 1 *36» 2945 

100 CONTINUE 2946 

450 I F t NO ) 453*452 .453 2947 

453 DO 101 1*1 .NO 2948 

11=1 2949 

MM=0 2950 


CALL SPEC! II. MM.A.ELMT.KD) 2951 

IFtKD 1411. 410.411 2952 

410 WRITE OUTPUT TAPE 6»5»A( I ,33) .A< 1.31) .At 1 .41 j »A< I ,43) .A( I ,35) 2953 

GO TO 101 2954 

411 WRITE OUTPUT TAPE 6 ,6, At 1 ,33 ) *A< 1 .31 ) .At 1 ,41 ) »A( I ,43 ) .At I .35 ) 2955 

101 CONTINUE 2956 


452 CONTINUE 

WRITE OUTPUT TAPE 6.7 »00F .PERCF.EQUI V 
WRITE OUTPUT TAPE 6.22 
WRITE OUTPUT TAPE 6.23.P1.P 
WRITE OUTPUT TAPE 6.24.T1.T 
WRITE OUTPUT TAPE 6.25, HI ,ANS<4 I 
WRITE OUTPUT TAPE 6»26,ANS<5> 

WRITE OUTPUT TAPE 6.27.AM1.ANS16 ) 

WRITE OUTPUT TAPE 6.28, CON. ANS(7) 

WRITE OUTPUT TAPE -6 »29»ZERO»ANS( 8 ) 

WRITE OUTPUT TAPE 6»30»ZERO,ANS<9) 

WRITE OUTPUT TAPE 6»31.6AMF.ANS( 10) 

WRITE OUTPUT TAPE6.32.UUS.US 
WRITE OUTPUT TAPE 6.33 
CALL COMPtAMOL. TITLE. 1.N.2) 

WRITE OUTPUT TAPE 6.34 

READ DRUM 4, 1507.A1 .A2.A3.A4.A5,A6.A7»A8.A9 
WRITE OUTPUT TAPE 6,35»PPP.A1.A4,A7 
WRITE OUTPUT TAPE 6.36.TTT.A2.A5.A8 
WRITE OUTPUT TAPE 6.40.UD.A3.A6.A9 
WRITE OUTPUT TAPE 6.37.TE 
WRrre output tape 6,38,tem 
WRITE OUTPUT TAPE 6. 39, AMO 
207 WRITE OUTPUT TAPE 6.16 
16 FORMAT ( 1H0.30X.16HINPUT, G-ATOMS/G//) 

READ DRUM 4 , 1702 .80X.80F ,80 
READ DRUM 4 . 1487. NE »ELMT 


2959 

2960 

2961 

2962 

2963 

2964 

2965 

2966 

2967 

2968 

2969 

2970 

2971 

2972 

2973 

2974 

2975 

2976 

2977 
2976 

2979 

2980 

2981 

2982 

2983 


I F ( NE-8 180,80,81 2984 

80 KK=1 2985 

KKK=NE 2986 

LOOP* 1 2987 

GO TO 82 2988 

81 KK=1 2989 

KKK*8 2990 

L00P=2 2991 

82 DO 85 J»1 .LOOP 2992 

WRITE OUTPUT TAPE 6,11. (ELMTt I ) , I=KK»KKK) 2993 

11 FORMAT 1 11X.8 ( 6X.A2 »7X ) ) 2994 

WRITE OUTPUT TAPE 6.12, (BOF ( !)« laKK.KKK) 2995 

12 FORMAT ( 5H FUEL.6X.8E15.7) 2996 

WRITE OUTPUT TAPE 6,13, <BOX t X) , 1*KK»KKK) 2997 

13 FORMAT < 8H OX7DANT.3X.8E15.7) 2998 

WRITE OUTPUT TAPE 6,14, (BO (I).I=KK.KKK) 2999 

14 FORMAT (11H PROPELLANT ,8E15. 7 J 3000 

IF (LOOP-1) 86,85.86 3001 

86 KK=9 3002 

KXK=NE 3003 

WRITE OUTPUT TAPE 6,15 3004 


15 FORMAT ( 1H0 ) 3005 

85 CONTINUE 3006 

ASSIGN 91 TO JEAN 3007 

GO TO 92 3008 

91 WRITE OUTPUT TAPE 6,119 3009 

119 FORMAT (6HONOTE. .2X.71HWEIGHT FRACTION OF FUEL IN TOTAL FUELS AND 3010 

10F OXIDANT IN TOTAL OXIDANTS) 3011 

RETURN 3012 
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SUBROUTINE ONCE (N.M, TITLE) 

C OUTPUTS ODD PRODUCTS 

C 

C 

DIMENSION M{ 105 ) »T I TLE (3.105) #TEM( 10 > »FMT<3> 
SA ALF IX. 2 

SB ALF 14X.2 

SC ALF 27X.2 

SD ALF 40X.2 

SE ALF 53X.2 

SAA ALF 66X.2 

SBB ALF 79X.2 

SCC ALF 92X.2 

SDD ALF 105X.2 

SEE ALF 118X.2 

SFOR ALF ( 1H+. 

SAPE ALF A6) 

WRITE OUTPUT TAPE 6.1 

FMTm«FOR 

FMT (31-APE 

TEM( 1 ) *A 

TEM(2>*B 

TEM ( 3 ) »C 

T£M(4>«D 

TEH ( 5 ) »E 

TEM ( 6 ) "AA 

TEM(7)-BB 

TEM(6)=CC 

TEM ( 9 ) *DD 

TEMl 10>*EE 

K*0 

KK-10 

DO 10 I-l.N 
J*M( I ) 

IF(I-KK) 20.20.21 

20 K-^+l 
GO TO 5 

21 K-l 

. KK*KK+10 

WRITE OUTPUT TAPE 6.1 
1 FORMAT (1H ) 

5 FMT ( 2 ) «TEM( K ) 

WRITE OUTPUT TAPE 6,FMT.TITLE(2.J) .TITLE(3.J) 

10 CONTINUE 
RETURN 


3013 

3019 

3015 

3016 

3017 

3018 

3019 

3020 

3021 

3022 

3023 

3024 

3025 

3026 

3027 

3028 

3029 

3030 

3031 

3032 

3033 

3034 

3035 

3036 

3037 

3038 

3039 

3040 

3041 

3042 

3043 

3044 

3045 

3046 

3047 

3048 

3049 

3050 

3051 

3052 

3053 

3054 

3055 

3056 

3057 


SUBROUTINE SPEC ( I »M,A.ELMT.KONT) 

C OUTPUTS FUEL AND OXIDANT FROM SUBROUTINE INPUT 


DIMENSION A ( 15 . 46 ) . TEM ( 5 1 .AN AME ( 5 ) . ELMT (151 
DIMENSION 11(5) 

55. FORMAT ( 10X.4HFUEL) 

66 FORMAT (10X.7HOXIDANT J 
IF (M ) 2.1.2 

1 WRITE OUTPUT TAPE 6.66 
GO TO 3 

2 WRITE OUTPUT TAPE 6.55 

3 K»0 

DO 11 J-1,15 
KK«I+M 

IFIAfJ.KK >112.11. 12 

12 K»K+1 

TEM ( K ) =A ( J.KK ) 

ANAME ( K ) -ELMT ( J ) 

IldO-TEMfK) 

11 CONTINUE 

IF t K.ONT >21.20.21 

20 WRITE OUTPUT TAPE 6,4. (ANAMEf I > » 1 1(1 > . I-l.K J 

4 FORMAT! 1H+. 18X, 5( A2, I2.5X J ) 

GO TO 13 

21 WRITE OUTPUT TAPE 6.5* ( ANAME ( I ) »TEM( I ) » 1*1.K) 

5 FORMAT (1H+.18X.5( A2.F8.5.3X) > 

13 RETURN 


3058 

3059 

3060 

3061 

3062 

3063 

3064 

3065 

3066 

3067 

3068 

3069 

3070 

3071 

3072 

3073 

3074 

3075 

3076 

3077 

3078 

3079 

3080 

3081 

3082 

3083 

3084 
3005 
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SUBROUTINE COMP ( AMOL.T ITLE » IN .N.ME J 


3086 


C OUTPUTS COMPOSITION 


DIMENSION AM0UI1 » 105 I »T I TLE 1 3 » 105 1 » IOMITI 105 ) ♦ I LESSI105 J 
DIMENSION FMT ( 4 I *TEM( 4 1 
SA ALF I 1H+* 

SB ALF A6»F8. 

SC ALF 5) 

SO ALF 7X»2 

SE ALF 36X.2 

SF ALF 64X.2 

S6 ALF 92X.2 

S0M1T ALF OMIT 

1 FORMAT ( 1X»2A6*2X* 13F9*5 ) 

3 FORMAT I1H0* 118HADD1TI0NAL PRODUCTS WHICH WERE CONSIDERED BUT W 
1H0SE MOLE FRACTIONS WERE LESS THAN 0*000005 FOR ALL ASSIGNED CONDI 
2TI0NS//I 

4 FORMAT (lHOt 59HPR0DUCTS WHICH WERE INTENTIONALLY OMITTED FROM 
1CALCULATI0NS//I 

TEM(1)»D 

TEMI2 ) a E 

TEM < 3 ) »F 

TEMI4I-G 

FMTfll>A 

FMT 1 3 > »B 

FMTUI-C 

K-0 

KK-4 

IOM«0 

ILE“0 

IF<ME-1> 61 *60*61 
61 WRITE OUTPUT TAPE 6*44 
60 1 1-0 

DO 9 I-1*N 

S CLA TITLE <1*11 

S SUB OMIT 

S TNZ *10 

IOM-IOM+1 
IOMIT(IOM)-I 
GO TO 9 

10 DO 11 J-l » IN 

IF (AMOL t J* I )-*5E-05 >11*12*12 

11 CONTINUE 
ILE-ILE+1 
ILESSf ILEI-I 
GO TO 9 

12 IF(M£-1 I51*50»S1 

50 WRITE OUTPUT TAPE 6*1 • TI TLE<2* It *TI TLEI3* 1 1 » (AMOL < JJtll *JJ-1* INI 
GO TO 9 

51 II-II+l 

IF! 1 1 -KX 1 200*200*201 

200 K-K+l 
GO TO 5 

201 X«1 

KK-KK+4 

WRITE OUTPUT TAPE 6*44 
44 FORMAT UH I 

5 FMT(2 I *T£M(K> 

WRITE OUTPUT TAPE 6»FMT*T ITLE <2* 1 1 *TI TLE ( 3* I) *AMOL 1 1 . II 



9 CONTINUE 

IFULE) 21*20*21 
21 WRITE OUTPUT TAPE 6*44 

WRITE OUTPUT TAPE 6*3 

CALL ONCE ( ILE»ILESS*TITLEI 
20 IF ( IOM ) 31.30*31 
31 WRITE OUTPUT TAPE 6*44 

WRITE OUTPUT TAPE 6*4 

CALL ONCE ( I OM » I OM I T ► T I TLE J 
30 RETURN 


3146 


3147 


3146 

3149 

3150 
3191 


3152 


3153 


3154 

3155 
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C MAIN PROGRAM FIVE 

C 

C OUTPUT PROGRAM 


COMMON C 

EQUIVALENCE (AN5 ( 1 ) » C(2$)>» <ANS<454>, CI478J) 

EQUIVALENCE ( T I TLE ( 1 ) » C<479)l, (TITLE(315>» C(793M 

ECU IVAL6NCE ( PAR ( 1 ) * C<794)), <PAR(208), CI1001M 

EQUIVALENCE (DER ( 1) , CU002M, (DER ( 169 ) » C(1170)J 

EQU I VALENCE (AMOLd), C(1171M, (AM0LU365 ), C<2535>> 

EQU I VALENCE (A 1 J ) * C(794))» <A(690)» C(1483>) 

EQU I VALENCE IE LMT ( 1 ) » C(1484>), (ELMT< 15 ) , CI1498)) 

EQU I VALENCE (BOX <1) . C(1499>), <B0X(15). Cl 15131 ) 

EQU 1 VALENCE (BOF < 1 ) » C(l$14>), <B0F(15)» C<1528)) 

EQUIVALENCE (B0(1>» C(1529J), (80(15), C<1543)> 

EQUIVALENCE!!!, C(2536>>, (MM. CI2537M 

EQUIVALENCE OCO. C(2538U, (IN. C(2539)I 

EQUIVALENCES . C(2540.))» (LEN. CI2541)) 

EQUIVALENCE (ME. C(2542)), (MAY. CC2543H 

EQUIVALENCE (NANA, C(2544)), (IPROB, C(2545)> 

EQUIVALENCE (NF. C(1I). (NO. CC2J) 

EQU I VALENCE (NE, C(3)>» (KK, C(19H 

EQU I VALENCE (KKK, C(20>>. (LOOP. C<21)> 

EQU I VALENCE (KTAPE, C<2546>> 

DIMENSION T I TLE ( 3. 105 J »PAR( 13,16) »DER( 13.131 » AMOL (13.105). 

2 A ( 15,46) »ELMT ( 15 ) 

3, ANSI 454) 

DIMENSION B0X(15)»B0F(15).B0<15) 

DIMENSION AS0LU3) 

C 

C MAIN CONTROL FOR ONE OR TWO LOOPS 

C 

SEX IT ALF EXIT 

2 FORMAT (9H0CASE NO. 1 5 ,F6. 1 »F7.3 ) 

3 FORMAT UH0.64X.46HWT FRACTION ENTHALPY STATE TEMP DENSITY/ 

225X .16HCHEMICAL FORMULA, 24X.10H(SEE NOTE) .4X.7HCAL/MOL.10X, 

35HDEG K.4X.4HG/CC) 

4 FORMAT (1H0.84X.46HWT FRACTION ENTHALPY STATE TEMP DENSITY/ 

2 25X.16HCHEMICAL FORMULA»44X,IOH(SEE NOTE) .4X.7HCAL /MOL. 

3 8X.5HD6G K.4X.4HG/CC) 

5 FORMAT ( 1H+.63X.F9.5.F12.3.4X.AI.F10.2.F11.6) 

6 FORMAT ( 1H+,83X,F9.5,F12.3,4X»A1,F10.2»FU.6) 

7 FORMAT ( 1HO»30X»4HO/F=F9.6»15H» PERCENT FUEL=F8.4,20H, EQUIVALENCE 
1 R\TI0=F7«4»10H» DENS I TY=F7«4 ) 

READ DRUM 4,?89»KASE,OOF,PERCF,EQUIV,NOEQ»NOFROZ 
READ DRUM 4.1503.XD 
READ DRUM 4.1700.N. IPROB 
DO 60 1=1,13 
S CLA EXIT 

S 60 STO ASOL(I) 

IF ( IPROB-2) 350,550, 551 

550 NANA=2 

GO TO 552 

551 NANA=1 

552 REWIND 3 
K.ANE=NANA 

DO 200 ME=1»KAN£ 

KTAPE=0 

300 READ TAPE 3, (ANSI I ) .1 = 1,454) 



KTAPE=KTAP6+1 
HAL=ANS( 2 )*14. 696006 
HALL=ANS ( 19 ) 

1F(ME-1)202»201 .202 

201 LEN=NOEQ 
GO TO 203 

202 LEN=NOFROZ 

203 IF ( LEN-13 )1 02, 102, 103 

102 KODE=0 

GO TO 106 

103 KONT»0 
K0DE*13 

106 J»34 

DO 104 1 = 1, N 
DO 105 11=1,3 
KK=J+I I 

105 TITLE (II, I )=ANS( KK ) 

104 J B 1+4 
MAY*1 

1000 WRITE OUTPUT TAPE 6,18 
18 FORMAT ( 1H1 ) 

CALL HEAD 

READ DRUM 4»795»A»NF»N0»NE»ELMT 
ASSIGN 90 TO JEAN 

92 WRITE OUTPUT TAPE 6 , 2 , KASE , HAL ,OOF 
GO TO JEAN, (90,91) 

90 IF 1X0)93,94,93 
94 WRITE OUTPUT TAPE 6,3 
GO TO 97 

93 WRITE OUTPUT TAPE 6,4 
97 IF(NF)351,350,351 

351 DO 100 I*1,NF 
1 1® I 

MM 3 15 

CALL SPEC 

IF (KD 1401 ,400,401 

400 WRITE OUTPUT TAPE 6 , 5 »A< I ,34 ) ,A(I ,32 ) ,A< I ,42) ,A( I ,44 ) ,A( I ,36 » 
GO TO 100 

401 WRITE OUTPUT TAPE 6,6 »A ( I ,34 ) »A{ I , 32 ) ,A< I ,42) ,A( I ,44 ) ,A( I , 36 ) 

100 CONTINUE 

350 IF (NO) 353,352,353 
353 DO 101 1=1, NO 
11=1 
MM“0 

CALL SPEC 
IF(K.D)411,410,411 

410 WRITE OUTPUT TAPE 6 ,5 , A< I ,33 ) »A ( I ,3 1 ) ,A ( I .41 > ,A< I ,43 > ,A( I ,35 ) 
GO TO 101 

411 WRITE OUTPUT TAPE 6 ,6 »A < I ,33 ) »A<I #31 ) »A< I .41 ) »A ( I ,43> ,A( I ,35 ) 

101 CONTINUE 

352 CONTINUE 

WRITE OUTPUT TAPE 6»7,OOF,PERCF,EQUIV»HALL 
IFCKODE) 51,50,51 

50 IN-LEN 
GO TO 56 

51 IF(KONT) 53,52.53 

52 IN’KODE 
KONT-1 
GO TO 56 

53 I((«LEN -13 



3274 

3275 



KODE=0 
56 CALL READ 

JF< I PROS “2 ) 600*600*601 

601 WRITE OUTPUT TAPE 6.602 

602 FORMAT ( 37H0EQU I L I BR IUM THERMODYNAMIC PROPERTIES) 

CALL PERPAR 

00 TO 206 

600 WRITE OUTPUT TAPE 6,8 

8 FORMAT (HHOPARAMETERS) 

I F ( MAY- 1 ) 64 * 63 * 64 

63 KK=IN-2 

WRITE OUTPUT TAPE 6,61 . t ASOL I I ) * 1 = 1 » KK) 

61 FORMAT ( 1H0 » 16X.7HCHAMBER .4X .7HTHR0AT ,10 (3X. A6 ) »3X»A4 ) 
60 TO 65 

64 WRITE OUTPUT TAPE 6 .66. (ASOL I I )» 1 = 1 » IN I 
66 FORMAT ( 1N0, 15X ,13 { 3X.A6 > ) 

65 CONTINUE 
CALL PERPAR 

IF ( ME-1 ) 206*205 .206 

205 WRITE OUTPUT TAPE 6,99 
99 FORMAT 1 1H ) 

WRITE OUTPUT TAPE 6.9 

9 FORMAT ( 12H0DER IVATI VES ) 

I F ( MAY-1 ) 503.502*503 

503 CALL PERDER 
GO TO 504 

502 CALL PERDEY 

504 CONTINUE 

206 WRITE OUTPUT TAPE 6.99 
WRITE OUTPUT TAPE 6.10 

10 FORMAT ( 15HOMOLE FRACTIONS//) 

CALL COMP 

207 WRITE OUTPUT TAPE 6.16 

16 FORMAT ( 1H0.30X.16HINPUT. G-ATOMS/G//) 

READ DRUM 4*1702, BOX. 80F. BO 
READ DRUM 4 , 1487 ♦ NE .ELMT 
IF(NE-8)80, 80*81 

80 KK=1 
KKK=NE 
LOOP°l 
GO TO 82 

81 KK = 1 
KKK = 8 
L00P=2 

82 DO 85 J=1 *LOOP 

WRITE OUTPUT TAPE 6 , 1 1 » ( ELMT (I) * I = KK»KKK ) 

11 FORMAT < 11X,8 <6X*A2.7X> > 

WRITE OUTPUT TAPE 6,12*(B0F (lit I=KK»KKK ) 

12 FORMAT ( 5H FUEL * 6X ♦ 8E15 .7 ) 

WRITE OUTPUT TAPE 6.13* (BOX ( I) » I>KK»KKK) 

13 FORMAT ( 8H OXIDANT, 3X.8E15. 7) 

WRITE OUTPUT TAPE 6»14.(B0 ( I ) » I=KK,KKK> 

14 FORMAT U1H PROPELLANT, 8E15. 7) 

IF (LOOP-1) 86,85*86 

86 KK=9 
KKK=NE 

WRITE OUTPUT TAPE 6.15 

15 FORMAT ( 1H0 ) 

85 CONTINUE 

ASSIGN 91 TO JEAN 


3276 

3277 

3278 

3279 

3280 

3281 

3282 

3283 

3284 

3285 

3286 

3287 

3288 

3289 

3290 

3291 

3292 

3293 

3294 

3295 

3296 

3297 

3298 

3299 

3300 
3302 

3302 

3303 
330A 

3305 

3306 

3307 

3308 

3309 

3310 

3311 

3312 

3313 

3314 

3315 

3316 

3317 

3318 

3319 

3320 

3321 

3322 

3323 

3324 

3325 

3326 

3327 

3328 

3329 

3330 

3331 

3332 

3333 

3334 

3335 


C 

C 

C 

C 

C 

C 


C 

c 

c 


GO TO 92 

91 WRITE OUTPUT TAPE 6*119 

119 FORMAT ( 6HONOTE • , 2X ,71HWEIGHT FRACTION OF FUEL IN TOTAL FUELS AND 
10F OXIDANT IN TOTAL OXIDANTS) 

IF I KODE 196*95,96 
96 MAY=MAY+1 
GO TO 1000 

95 IF (NAN A- 1)208*2 00 *2 08 
208 NANA=0 
200 CONTINUE 

CALL PONG(I | 


SUBROUTINE SPEC 

OUTPUTS FUEL AND .OXIDANT FROM SUBROUTINE INPUT 


55 

66 


2 

3 


12 


11 

20 

4 

21 

5 
13 


COMMON C 

EQUIVALENCE (TEM(U * 
EOU I VALENCE ( ANAME < 1 ) * 
EQUIVALENCE ( 1 1 ( 1 ) * 
EQUIVALENCES* 

EQU I VALENCE ( A ( 1 ) » 
EQUIVALENCEIELMT ( 1 1 , 
EQU I VALENCE ( I * 

EQU I VALENCE ( KONT » 


caen* 

C (6 ) ) » 
C(lll), 

C ( 16 ) ) ♦ 

C (794 ) ) * 

C ( 1484 ) ) * 
C ( 2536 ) ) * 
C ( 2538 ) ) 


( TEM(3 ) » 

( ANAME (51* 

(11(5). 

(KK, 

(A(690 ) * 

( ELMT ( 15 ) » 
(M* 


DIMENSION A ( 15*46 ) .TEM( 5 ) .ANAME ( 5 ) ,ELMT ( 15 ) 
DIMENSION 11(5) 

FORMAT ( 10X *4HFUEL ) 


FORMAT ( 10X ,7H0X I DANT ) 
IF (M ) 2,1,2 
WRITE OUTPUT TAPE 6,66 
GO TO 3 

WRITE OUTPUT TAPE 6.55 
K=0 

00 11 J=l»15 
KK=I+M 

I F ( A ( J * KK ) ) 12*11*12 
K = K+1 


TEM ( K > =A ( J , KK ) 

AN^EI K ) =ELMT (J) 

II I K ) =TEM ( K ) 

CONTINUE 

IF ( KONT >21,20, 21 

WRITE OUTPUT TAPE 6 ,4 , ( ANAME ( I) ♦ 1 1 ( I » , 1 = 1 *K ) 
FORMAT (1H+»18X,5(A2»I2»5X)) 

GO TO 13 

WRITE OUTPUT TAPE 6,5 , ( ANAME ( I ) *TEM< I) , 1=1, K I 
FORMAT ( 1H+,18X»5(A2»F8.5,3X) > 

RETURN 


C(22l I 
C ( 10 ) ) 

C( 15 ) ) 

C 1 17 ) ) 

C ( 1483 ) ) 
C ( 1498 ) ) 
Cl 2537) ) 


SUBROUTINE HEAD 

OUTPUTS PROPER HEADING ACCORDING TO PROBLEM NUMBER 


COMMON t: 

EQUIVALENCE! I PROB, CI2545)), (ME, C(2542>) 


3338 

3339 

3340 

3341 

3342 

3343 

3344 

3345 

3346 

3347 

3348 

3349 

3350 

3351 

3352 

3353 

3354 

3355 

3356 

3357 

3358 

3359 

3360 

3361 

3362 

3363 

3364 

3365 

3366 

3367 

3368 

3369 

3370 

3371 

3372 

3373 

3374 

3375 

3376 

3377 

3378 

3379 

3380 

3381 

3382 

3383 

3384 

3385 

3386 

3387 

3388 

3389 

3390 

3391 

3392 

3393 

3394 

3395 
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100 FORMAT ( 25X »80HTHE0RETI CAL ROCKET PERFORMANCE ASSUMING CQUILJB 

2RIUM COMPOSITION DURING EXPANSION) 

200 FORMAT ( 25X.75HTHE0RETICAL ROCKET PERFORMANCE ASSUMING FROZEN 
2COMPOS I T ION DURING EXPANSION) 

300 FORMAT ( Z5X»SOHTHEORET ICAL ROCKET PERFORMANCE ASSUMIN6 EQUILIB 
2RIUM COMPOSITION DURING EXPANSION/44X»28HFROM AN ASSIGNED Tf MPERAT 
3URE ) 

400 FORMAT < 25X »75HTHEORET I CAL ROCKET PERFORMANCE ASSUMING FROZEN 

2COMPOS I T ION OURING EXPaNS ION/44X .28HFROM AN ASSIGNED TEMPERATURE) 

500 FORMAT ( 25X.74HTHE0RETICAL THERMODYNAMIC PROPERTIES AT ASSIGNE 
2D PRESSURE AND TEMPERATURES) 

600 FORMAT ( 25x»74HTHEORETICAL THERMODYNAMIC PROPERTIES AT ASSIGNE 
2D TEMPERATURE AND PRESSURES) 

IF ( IPROB-2 11,2,10 

10 IF ' IPROB-4 ) 3,4,4 

1 IF I ME-1 >12*11 *12 

11 WRITE OUTPUT TAPE 6,100 
RETURN 

12 WRITE OUTPUT TAPE 6»200 
RETURN 

2 IF(ME-1)14. 13.14 

13 WRITE OUTPUT TAPE 6.300 
RETURN 

14 WRITE OUTPUT TAPE 6.400 
RETURN 

3 WRITE OUTPUT TAPE 6.500 
RETURN 

4 WRITE OUTPUT TAPE 6,600 
RETURN 


C 

SUBROUTINE PERDER 

C OUTPUTS PERFORMANCE DERIVATIVES 

C 

c 

COMMON C 

EQUIVALENCE (PERU) ♦ CI1002)). (PSR<169). 01170)1 

EQUIVALENCE (IN, 02539)) 

DIMENSION PER (13,13) 

1 FORMAT I15H0IDLI/DLPCJPC/P13F9.5) 

2 FORMAT ( 15H ( DLT/DLPC >PC/P13F9. 5 ) 

3 FORMAT ( 16H (DLAR/DLPC)PC/PF8.5»12F9.5) 

4 FORMAT ( 16H ( OLCS/OLPOPC/PF8.5, 12F9.5 ) 

5 FORMAT { 15H0IDLI /0HC)PC/P*13F9*5 ) 

6 FORMAT l 15H (DLT/DHC»PC/P*13F9.5 ) 

7 FORMAT ( 16H < DLAR/DHC)PC/P#F8.5, 12F9.5) 

8 FORMAT ( 16H <DLCS/DHCM'C/P#F8.5,12F9*5> 

9 FORMAT (16H *<HC IN KCAL/G) ) 

10 FORMAT (13H0(0LI/DLPCP)$,2X,13F9*5) 

11 FORMAT U3H IDLT/DLPCP)S»2X,13F9.5) 

.12 FORMAT ( 15H 1 DLAR/DLPCP IS 13F9.5) 

WRITE OUTPUT TAPE 6 »1 ♦ ( PER< I ,2 ) » 1=1 ♦ IN ) 

WRITE OUTPUT TAPE 6,2, (PERU ,1 ) * 1 = 1 > IN ) 

WRITE OUTPUT TAPE 6,3«<PER(t ,31 , l=i»lN) 

WRITE OUTPUT TAPE 6.4. ( PERU ,5 ) » 1=1 , IN ) 

WRITE OUTPUT TAPE 6,5 » (PERU ,7) , 1 = 1 , IN) 

WRITE OUTPUT TAPE 6,6 » (PERU »6 ) » 1 = 1 » IN) 

WRITE OUTPUT TAPE 6 ,7, (PERU ,8 ), 1 = 1 , IN ) 

WRITE OUTPUT TAPE 6, 8. (PERU ,10) »1=1.1N) 
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3399 

3400 

3401 

3402 

3403 

3404 

3405 

3406 

3407 

3408 

3409 

3410 

3411 

3412 

3413 

3414 

3415 

3416 

3417 

3418 

3419 

3420 

3421 

3422 

3423 

3424 

3425 

3426 

3427 

3428 

3429 

3430 

3431 

3432 

3433 

3434 

3435 

3436 

3437 

3438 

3439 

3440 

3441 

3442 

3443 

3444 

3445 

3446 

3447 

3448 

3449 

3450 

3451 

3452 

3453 

3454 

3455 


WRITE OUTPUT TAPE 6,9 3456 

WRITE OUTPUT TAPE 6 , 10» (PER ( I ,12 > , I =1, IN) 3457 

WRITE OUTPUT TAPE 6,11, (PERI I»U),I = 1»IN) 3458 

WRITE OUTPUT TAPE 6,12, (PERU , 13 > , 1*1 * IN) 3459 

RETURN 3460 

c 3461 

C 3462 

C 3463 

SUBROUTINE PERDEY 3464 

C OUTPUTS PERFORMANCE DERIVATIVES 3465 

C 3466 

C 3467 

COMMON C 3468 

EQUIVALENCE ( PER( 1 ) , CU002M, (PER( 169) » CU170U 3469 

EQUIVALENCES, C(2539l) 3470 

DIMENSION PER (13,13) 3471 

V FORMAT <15H0(0U/DLPC)PC/P»9X,12F9.5) 3472 

2 FORMAT (15H (DLT/DLPC)PC/P13F9.5) 3473 

3 FORMAT < 16H (DLAR/DLPC)PC/P,8X,12F9.5) 3474 

4 FORMAT I 16H (DLCS/DLPC)PC/P»8X*12F9*5) 3475 

5 FORMAT ( 15H0 • DL I /DHC)PC/P*»9X» 12F9»5) 3476 

6 FORMAT (15H I DLT/DHC)PC/P#13F9.5 ) 3477 

7 FORMAT ( 16H ( DLAR/DHC >PC/P* , 8X* 12F9*5 ) 3478 

8 FORMAT ( 16H (DLCS/DHC1PC/P*»8X»12F9»5) 3479 

9 FORMAT (16H *(HC IN KCAL/G)) 3480 

10 FORMAT (13H01DLI/0LPCP)S»UX»12F9.5) 3481 

11 FORMAT (13H (DLT/DLPCP)S,2X,13F9.5) 3482 

12 FORMAT (15H (DLAR/0LPCP)S,9X,12F9«5) 3483 

WRITE OUTPUT TAPE 6,1, (PER U ,2 >, 1=2 , IN) 3484 

WRITE OUTPUT TAPE 6,2, (PERU ,1 ), 1=1 , IN) 348S 

WRITE OUTPUT TAPE 6 ,3, (PERU ,3) , 1=2 , IN ) 3486 

WRITE OUTPUT TAPE 6 ,4, ( PERU ,5) , 1=2, IN ) 3487 

WRITE OUTPUT TAPE 6 ,5, (PERU ,7 ), 1=2, IN ) 3488 

WRITE OUTPUT TAPE 6 ,6, (PERU ,6 >, 1 = 1 , IN > 3489 

WRITE OUTPUT TAPE 6,7, (PERU ,8) » 1=2, IN) 3490 

WRITE OUTPUT TAPE 6, 8, r PERU, 10), 1=2, IN) 3491 

WRITE OUTPUT TAPE 6,9 3492 

WRITE OUTPUT TAPE 6,10, (PERU ,12) , 1=2, IN) 3493 

WRITE OUTPUT TAPE 6, 1 1 , (PER (I ,11 ) , I =1, IN ) 3494 

WRITE OUTPUT TAPE 6, 12, (PERU ,13), 1=2, IN) 3495 

RETURN 3496 

C 3497 

C 3498 

C 3499 

SUBROUTINE READ 3500 

C SORTS WHAT IS ON TAPE 3 3501 

C 3502 

C 3503 

COMMON C 3504 

EQUIVALENCE (N, C(l>)» (J» C<2)1 3505 

EQUIVALENCE ( ANS ( 1 > , C(25>>, (ANS(454>, C(478)J 3506 

EQUIVALENCE ( PAR ( 1 ) , C(794>), (PARI208), C(IOOD) 3507 

EQUIVALENCE(OERU) , CU002)), (DERU69). CU170U 3508 

EQUIVALENCE (AMOL< 1 ) , C ( 1171 ) ) , (AM0U1365), C(2535)> 3509 

EQUIVALENCE (IN, C(2539>>» (LEN, C(2541)) 3510 

EQUIVALENCE (K TAPE, C(2546)) 3511 

EQUIVALENCE (NN, C(2540)) 3512 

DIMENSION P AR ( 13,16 ) »DER( 13,13) »AMOL( 13,105 )» AN SI 454) 3513 

DO 1 1=1, IN 3514 

DO 2 J= 1 * 16 3515 
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> par ( i . j)»ans< j> 

Nel 

DO 3 J=20»32 
DER( I iN ) »ANS ( J ) 

I NeN+1 
N«1 
J=38 

DO A J J*1 »NN 
AMOL ( I *N ) *>ANS ( J ) 

JaJ + A 

► N=N+1 

I F ( JCT APE-LEN) 100*1.100 
) READ TAPE 3. (ANSS) »K=1.454) 
KTAPE=KTAPE+1 
, CONTINUE 
' RETURN 


SUBROUTINE ONCE IN.M) 
OUTPUTS ODD PRODUCTS 


COMMON C 

EQUIVALENCE (TEM(l) * C(l>). (TEM(IO). C(101» 

EQUIVALENCE I FMTU). C11U1. f FMT ( 3 ) . C( 13) ) 

EQUIVALENCES* C( 14 > ) * SK* C(15)» 

EQUIVALENCE(TITLE(1>. C<479>). (TITLEI315). C(793)) 

■DIMENSION M(105).TITLE(3.105I *TEM( 10) • FMT( 3 > 
i • ALF IX. 2 

I ALF 14X* 2 

ALF 27X.2 

> ALF 40X.2 

ALF 53X.2 

iA ALF 66X.2 

IB ALF 79X.2 

:C ALF 92X.2 

‘D ALF 105X»2 

E AL C 118X.2 

OR ALF (1H+. 

PE ALF A6) 

WRITE OUTPUT TAPE 6.1 
FMT ( 1 ) =FOR 
FMT ( 3 ) “APE 
TEM(1)»A 
TEM ( 2 ) «B 
TEMI 3 ) n C 
TEM ( 4 ) =D 
T£M( 5 ) =E 
TEM (6 ) *AA 
TEM(7 >=BB 
TEMI8 ) ®CC 
TEM ( 9 ) =00 
TEM(10)“EE 
K-0 
KK=10 

DO 10 I »1 »N 
J=M(II 

IFII-KK) 20.20.21 

20 K*K+1 

60 TO 5 

21 K»1 
KKSK+10 

WRITE OUTPUT TAPE 6.1 
1 FORMAT (1H ) 

5 FMT(2)«TEMS) 

WRITE OUTPUT TAPE 6.FMT.TITLEI2. J> .TITLE(3.JI 
10 CONTINUE 


SUBROUTINE COMP 
OUTPUTS COMPOSITION 


COMMON C 

EQUIVALENCE! FMT (1) » C(l>>. (FMT<4). C(4I) 

EQU I VALENCE! TEM (1). C!5M. (TEM! 4 ) , C(8)) 

EQUIVALENCES. C ( 9 > ) * SK. Cl 10 » ) 

EQUIVALENCE (AMOL! 1 ) . 0(1171)). (AMOL! 1365J. C ( 2535 I > 

EQUIVALENCE I TITLE! 1 ) . CI479)). (TITLE<315)» C(793)) 

EQUIVALENCE! I OMIT! 1 ) . CI794I). (I0MITI105). C!898)) 

EQui VALENCE ( ILESS! 1 ) . C(899)J. (ILESS(105). C(1003)» 

EQUIVALENCE I IN. CI2539)). !N. C(2540)) 

EQUIVALENCEIME* C ( 2542 ) ) 

DIMENSION AMOL (13»105).TITLE(3.105).IOMIT(105).ILESS(105) 
DIMENSION FMT (4) .TEM! 4) 

ALF ( 1H+. 

ALF A6.F8 • 


SB ALF 
SC ALF 
SD ALF 
SE ALF 
SF ALF 
SO ALF 
SOMIT ALF 


( AMOL! 1365 J . C ( 2535 I » 
(TITLE! 3 15). CI793M 
( I OMIT (105 ) . C ! 898 ) ) 

( ILESS (105 ) » C ( 1003 ) ) 


ALF 7X.2 

ALF 36X.2 

ALF 64X.2 

ALF 92X.2 

UT ALF OMIT 

1 FORMAT (1X.2A6.2X.13F9. 5) 

3 FORMAT ! 1H0. 118HADDITI0NAL PRODUCTS WHICH WERE CONSIDERED 8UT W 
1H0SE MOLE FRACTIONS WERE LESS THAN 0.000005 ‘FOR ALL ASSIGNED CONDI 
2TI0NS//) 

4 FORMAT (1H0. 59HPR0DUCTS WHICH WERE INTENTIONALLY OMITTED FROM 
1CALCULATI0NS//) 

TEMC1 )*D 
TEM(2 )»£ 

TEM(3)»F 
TEM(4)*G 
FMTI1)«A 
FMT(3)"B 
FMTI4 ) «C 
K*0 

KK-»4 

I0M«0 

ILE“0 

IF (ME-1 ) 6 1.60. 61 
61 WRITE OUTPUT TAPE 6.44 
60 II«0 

DO 9 1*1. N 
CLA TITLE (1.1) 

SUB OMIT 
TNZ *10 
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IOM=10M+1 
I OM I T ( I OM ) - 1 
GO TO 9 

10 00 11 J“ 1 j IN 

IF ( AMOL ( J* I )-• 5E“05 ) 1 1 * 12 * 12 

11 CONTINUE 

I LE 3 1 LE + 1 
ILESS ( ILE)=I 
GO TO 9 

• 12 IF(ME-1)51.50»$1 

50 WRITE OUTPUT TAPE 6,1 .TITLE ( 2» II .TITLE ( 3. I ) » ( AMOJ_ IJJ.I)«JJ=1*IN) 
GO TO 9 

51 11*11+1 

IF (II -KK) 200.200.201 

200 K=K+1 
GO TO 5 

201 K=1 
KK*KK+4 


WRITE OUTPUT TAPE 6,44 
44 FORMAT (1H ) 

5 FMT ( 2 I =TEM( K > 

WRITE OUTPUT TAPE 6 ,FMT »TI TLE (2 ♦ I > »T ITLE( 3. I) ,AMOL ( 1. I ) 

9 CONTINUE 
IFULE) 21,20.21 

21 WRITE OUTPUT TAPE 6.44 

WRITE OUTPUT TAPE 6,3 

CALL ONCE ( ILE, ILESS) 

20 IFUOM) 31.30.31 
31 WRITE OUTPUT TAPE 6,44 

WRITE OUTPUT TAPE 6.4 

CALL ONCE (IOM.IOMIT) 

30 RETURN 
C 
C 
C 
C 
C 

c 

SUBROUTINE PERPAR 

C OUTPUTS PERFORMANCE PARAMETERS 

C 

C 

COMMON C 

EQUIVALENCE ( NN ( 1 ) » C(l))» (NNI13), C(13>J 

EQU I VALENCE ( PAR ( 1) , C(794>). (PAR (208). C(lOOl)) 

EQUIVALENCE ( IN. C(2539)). (MAY. C(2543)> 

EOU I VALENCE (<ODE, C(2544)) 

01 MENS I ON PAR ( 13 , 16 ) , NN ( 13 ) 

10 FORMAT (5H PC/P.10X) 

11 FORMAT (8H P. ATM ,7X) 

12 FORMAT ( 9H T, DEG K.6X.13I9) 

13 FORMAT ( 9H H. CAL/G .6X.13F9.1) 

14 FORMAT (15H S» CAL/(G)(K) 13F9.4) 

15 FORMAT (10H0M, MOL WT.5X. 13F9.3 ) 

16 FORMAT ( 11H ( DLM/OLP ) T ,4X .13F9.5 ) 

17 FORMAT (11H ( DLM/OLT ) P .4X , 13F9.4 ) 

18 FORMAT (15H CP. CAL/(G) (KH3F9.4) 

19 FORMAT ( 6H GAMMA, 9X , 13F9.4) 

20 FORMAT (12H MACH NUMBER, 3X» 13F9. 3) 

21 FORMAT (15H0CSTAR, FT /SEC 1319) 



22 FORMAT (3H CF » 12X . 1 3F9.3 ) 3*96 

23 FORMAT <6H AE/AT.9X.13F9.3) 3697 

24 FORMAT (15H I VAC , LB-SEC/LB13F9. 1 ) 3698 


25 FORMAT (15H I, LB-SEC/LB 13F9.1) 3699 

IF ( KODE-1 12.1.2 3700 

1 WRITE OUTPUT TAPE 6,111 3701 


111 FORMAT (8H0P. ATM ,7X) 

GO TO 3 

2 WRITE OUTPUT TAPE 6,10 
CALL VAR ( 1 ) 

WRITE OUTPUT TAPE 6,11 

3 CALL VAR (2 ) 

DO 60 I«1.!N 

60 NN( I )=PAR( I .3 > + .5 

WRITE OUTPUT TAPE 6 .12 , (NN( I ) , I =1 ♦ I N ) 
WRITE OUTPUT TAPE 6 .13, < PAR ( 1 ,4) ♦ I 3 1 » IN ) 
WRITE OUTPUT TAPE 6 . 14 , ( PAR ( 1 ,5 ) » I = 1 . I N ) 
WRITE OUTPUT TAPE 6 ,.l 5 . ( PAR( I ,6 ) . I = 1 . IN ) 
IF ( KODE )6.5 .6 

6 WRITE OUTPUT TAPE 6 » 16 , < PAR ( I .8 ) . I =1 ♦ IN ) 
WRITE OUTPUT TAPE 6 , 17 , ( PAR( I .9) »I =1 » IN ) 

5 WRITE OUTPUT TAPE 6, 18 » (PAR( l ,7 I . I = 1 . IN ) 
WRITE OUTPUT TAPE 6 , 19 ♦ (PAR ( I .10 > » I 3 1 » IN) 
IF(K00E*1>41, 40.41 

40 RETURN 

41 WRITE OUTPUT TAPE 6 .20. (PAR ( I , 12 ) . I “1 » IN) 
DO 61 1*1. IN 

61 NN(I)=PAR(I»15)+.5 
IF (MAY-1) 51.50.51 

50 WRITE OUTPUT TAPE 6 .31 » (NN( I ) ♦ I =2» IN) 
WRITE OUTPUT TAPE 6.32. (PAR(1 .16 ) * I *2 . IN) 
WRITE OUTPUT TAPE 6.33 

CALL VAR (11) 

WRITE OUTPUT TAPE 6.34. (PAR(1 .14) .I=2»IH1 
WRITE OUTPUT TAPE 6.35, (PAR( I .13) . 1=2. IN) 

31 FORMAT (15H0CSTAR, FT/SEC .9X.12I9) 

32 FORMAT <3H CF.21X . 12F9.3) 

33 FORMAT I6H AE/AT. 10X . 12F9.3 ) 

34 FORMAT (15H IVAC.LB-SEC/L8.9X. 12F9. 1 ) 

35 FORMAT (15H I. LB-SEC/LB .9X.12F9.1) 
RETURN 

51 WRITE OUTPUT TAPE 6 .2 1 » <NN( I ) * I -1 ♦ I N) 
WRITE OUTPUT TAPE 6 .22 . (PAR ( 1 .16 ) ♦ I =1 . IN ) 
WRITE OUTPUT TAPE 6.23 

CALL VAR(ll) 

WRITE OUTPUT TAPE 6 .24 . < PAR U ♦ 14) .1 =1 . I N) 
WRITE OUTPUT TAPE 6 .25 . < PAR ( I , 13 ) ♦ 1 = 1 * IN ) 
RETURN 


SUBROUTINE VAR( INDEX) 

C SPECIAL FORMAT FOR PC/P.P. AND AE/AT 

C 

C 

COMMON C 

EQUIVALENCE (T£MM< 1 ) . CUM* (TEMMI13). C< 13 » > 

EQUIVALENCES! 1). C(14>>, (AM(4). Cl IT M 

EQUIVALENCE ITEM (1>. C(18>>. (TEM(4) « Cl 21 > ) 

EQU I VALENCE ( FMT(l) » C(22>)» ( FMT 13). C(24J> 




SA 

SB 

SC 

SO 

SE 

SF 

SAA 

SB8 

SCC 

SOO 

SEE 

SFF 

SGG 

SFOR 

SZERO 

SONE 

STWO 

STHR 

SFR 


2 


3 


EQUIVALENCE ( PAR < 1 > * CI794)). 

EQUIVALENCE! IN. CI2539)). 

DIMENSION FMT (3)»PAR (13.16) *TEM( 4) 

ALF 14X.F 

ALF 23X.F 

ALF 32X.F 

ALF 41X.F 

ALF 50X.F 

AL C 59X.F 

ALF 68X.F 

ALF 77X.F 

ALF 86X.F 

ALF .95X.P 

ALF 104X..F 

ALF 113X.F 

ALF 122X.F 

ALF (1H+. 

ALF 9.0 ) 

ALF 9.1) 

ALF 9.2) 

ALF 9.3) 

ALF 9.4) 

TEMM! 1 )“A 

7EMM(2)*B 

TEMM ( 3 ) =C 

TEMMI 4 ) =0 

TEMM I 5 J “E 

TEMM I 6 ) =F 

TEMM(7I*=AA 

TEMM ( 8 ) »BB 

TEMM( 9 ) =CC 

TEMM( 10 1 b DD 

TEMMI 11 >»EE 

TEMM( 12 ) “FF 

TEMMI 13 ) “GG 

FMT ( 1 ) =F0R 

I F I I NDEX-2 ) 1.2.3 

T£M( 1 ) *1«0£ 04 

TEM I 2 ) ■ 1 »OE05 

TEM ( 3 ) *= 1.0EQ6 

AMU )»THR 

AM ( 2 ) =TWO 

AMI 3)=0NE 

AM ( 4 ) =ZERO 

GO TO 4 

TEM ( 1 ) * 1 .0 

TEM(2)*10.0 

TEM I 3 ) M 100.0 

AMI 1 >=FR 

AMI 2 ) *THR 

AMI 3)=TWO 

AMI 4 ) =ONE 

GO TO 4 

TEMI 1 >=10.0 

TEM 1 2 )" 100* 0 

TEM ( 3 ) =1000.0 

AMI 1 ) =THR 

AM I 2 ) *TWO 

AMI 3)=ONE 

AMI 4) "ZERO 


I PAR 1 208 ) . Cl 1001 ) ) 

(MAY. Cl 2543)1 

'AMI 4 ) .TEMMI 13 ) 


3756 

3757 

3758 

3759 

3760 

3761 

3762 

3763 

3764 

3765 

3766 

3767 

3768 

3769 

3770 

3771 

3772 

3773 

3774 

3775 

3776 

3777 

3778 

3779 

3780 

3781 

3782 

3783 

3784 

3785 

3786 

3787 

3788 

3789 

3790 

3791 


3794 

3795 

3796 

3797 

3798 

3799 

3800 

3801 

3802 

3803 

3804 

3805 

3806 

3807 

3808 

3809 

3810 

3811 

3812 

3813 

3814 

3815 


4 DO 5 I=i»IN 3816 

IF II-l) 53.50.53 3817 

50 IF I MAY-1 ) 53.52.53 3818 

52 IF I I NDEX— 11 ) 53.5.53 3819 

53 CONTINUE 3820 

FMT 1 2 ) *TEMM 1 1 ) 3821 

DO 6 J-1.3 3822 

IF (PAR (I. INDEX l-TEMUJ) 10.6.6 3823 

10 FMT I 3 ) =AM( J ) 3824 

11 WRITE OUTPUT TAPE 6.FMT.PARI r .INDEX) 3825 

GO TO 5 3826 

6 CONTINUE 3827 

FMT 1 3 ) “AMI 4 ) 3828 

WRITE OUTPUT TAPE 6, FMT. PARC I .INDEX) 3829 

5 CONTINUE 3830 

RETURN 3831 



APPENDIX D 


PROGRAM LISTING FOR IBM 7090 


MAIN PROGRAM 





0001 

0002 

0003 

COMMON C 





0004 

EQUIVALENCE 

(6(1)* 

C(l))i 

(G(420)» 

0420) ) 

0005 

EQUIVALENCE 

( ANSI 1 ) » C (421 ) ) » ( ANSI454 ) * 

0 874) ) 

0006 

EQUIVALENCE 

(HSUM* 

CI424) )» 

(SSUM* 

0425)) 

0007 

EQUIVALENCE 

(WTMOL* 

C(426) ) * 

(CP* 

0 427) ) 

0008 

EQUIVALENCE 

( DLMPT * 

C< 428) ) * 

(DLMTP* 

0429) ) 

0009 

EQUIVALENCE 

(GAMMA* 

C( 430 ) ) * 

(ARATIO. 

0431) ) 

0010 

EQUIVALENCE 

(VMACH* 

C(432) )* 

(SP IMP* 

0 433)) 

0011 

EQUIVALENCE 

(VACI* 

C ( 434) )» 

(CF» 

0436) 1 

0012 

EQUIVALENCE 

( RHOI » 

C(437 ) ) * 

(RHOVAC* 

O 438 ) ) 

0013 

EQUIVALENCE 

(RHO* 

C(439) > 



0014 

EQUIVALENCE 

(T PI* 

C ( 440 > ) » 

(PI I* 

0441) ) 

0015 

EQUIVALENCE 

(EP PI* 

Cl 442) ) » 

(AW PI* 

0 443) > 

0016 

EQUIVALENCE 

IT ETA, 

C ( 445 ) > 



0017 

EQUIVALENCE 

(ETA I, 

C(446>)» 

(EP ETA* 

C( 447 ) ) 

0018 

EQUIVALENCE 

(AW ETA* 

C(446) )* 

(T SIG. 

0450) ) 

0019 

equivalence 

(SIG I* 

C(451 ) I* 

(EP SIG, 

0 452)) 

0020 

EQUIVALENCE 

(AW SIG* 

C ( 453 ) ) 



0021 

EQUIVALENCE 

( ANSLAB ( 1 ) < 

• C ( 875 ) ) » 

<ANSLA8<454> 

* 0 1328)) 

0022 

EQUIVALENCE 

( FORM ( 1 ) * 

C ( 1329) ) » 

(FORM ( 15) » 

O 1343) ) 

0023 

EQUIVALENCE 

( ELMT ( 1 ) t 

C ( 1344 ) ) * 

(ELMT ( 15 ) * 

01358)) 

0024 

EQUIVALENCE 

(LLMT(1)» 

C< 1344) ) » 

( LLMT (151* 

01350)) 

0025 

EQUIVALENCE 

( DATA ( 1 1 , 

C( 1359) ) » 

(DATA (23) , 

01381) ) 

0026 

EQUIVALENCE 

(MDATA(l), 

C ( 1359 ) ) * 

(MDATA ( 23 ) 

• 01381)) 

0027 

EQUIVALENCE 

(£N< 1 ) * C ( 1382 ) ) * 

(EN 190 ) * 0 1471 ) ) 

0028 

EQUIVALENCE 

( I SYS* 

C( 1472 ) ) . 

(JEAN* 

01473)) 

0029 

EQUIVALENCE 

(ACX. 

C ( 1474) ) ♦ 

(ACF, 

01475)) 

0030 

equivalence 

1 AMX • 

Cl 1476) ) * 

I AMF » 

0 1477)) 

0031 

EQUIVALENCE 

(RHOX* 

C ( 1478 ) ) » 

(RHOF* 

O 1479) ) 

0032 

equivalence 

(COEFX(l)* 

C ( 1480 ) ) * (COEFX(20) ♦ CI1499)) 

0033 

EQUIVALENCE 

( DX ( 1 ) * 

C ( 1500) ) * 

(DX 120) * 

01519)) 

0034 

EQUIVALENCE 

< FORMLA ( 1 ) i 

- CI1520M 

* ( FORMLA ( 18 ) * 01537)) 

0035 

equivalence 

(MMLA(l), 

C( 1520 ) ) » 

( MMLA ( 18 ) • 

01537)) 

0036 

EQUIVALENCE 

( PROD ( 1 ) » 

C( 1538) ) » 

(PROD( 3 ) » 

0 1540)) 

0037 

EQUIVALENCE 

(SYSTM(l)* 

C( 1541 ) ) ♦ 

ISYSTM ( 15 ) 

» 0 1555)) 

0038 

EQUIVALENCE 

( MT5YS ( 1 ) * 

C( 1541 ) ) » 

(MTSYS( 15) » 

01555) ) 

- 0039 

EQUIVALENCE 

(OF* C( 1556 ) ) . 

(FPCT * C( 1557) ) 

0040 

EQUIVALENCE 

(EQRAT* 

C ( 1558 ) ) 



0041 

EQUIVALENCE 

(KODE, C( 1559) }* ((CASE* C(1560>» 

0042 

EQUIVALENCE 

(KONT* C(156in* 

(NF* 

0 1562)) 

0043 

EQUIVALENCE 

(NO* 

C ( 1563 > ) * 

(NE» 

0 1564) ) 

0044 

EQUIVALENCE 

(NOEQ, C( 1565 ) > 



0045 

EQUIVALENCE 

( BOX ( 1 ) * 

C( 1771 ) ) 

(BOX( 15) * 

01785)) 

0046 

EQUIVALENCE 

( 60F ( 1 ) , 

C( 1786 1 ) 

( 80F ( 15 ) » 

01800) ) 

0047 

EQUIVALENCE 

(HX» 

C( 1801 ) ) 

(HF, 

0 1802)) 

0048 

EQUIVALENCE 

( VXPLS* 

C ( 1803 ) ) 

(VXMIN, 

O 1804) ) 

0049 

equivalence 

( VFPLS* 

C ( 1805 ) ) 

(VFMIN* 

01806)) 

0030 

EQUIVALENCE 

(EN LN(1) * 

C ( 1861 ) > 

(EN LN ( 90 ) * 

O 1950) ) 

0051 

EQUIVALENCE 

(DEL N( 1 ) * 

C( 1951 1 ) 

(DEL N ( 90 ) * 

0 2040) ) 

. 0052 

EQUIVALENCE 

( HO ( 1 ) * 

C(204l) > 

( HO ( 90 > » 

02130)) 

0053 

EQUIVALENCE 

(Stlli • 

C( 2131 1 ) 

(S(9Q ) * 

0 2220) ) 

0054 

equivalence 

(X(l» , 

C( 2221 ) ) 

(X(20)» 

0 2240) ) 

0055 

equivalence 

(DELTA(l)* 

C( 2241 ) ) 

(DELTA120) » 

0 2260)) 

0056 

equivalence 

< BO ( 1 ) * 

C ( 2261 ) ) 

(60(15), 

02275)) 

0057 

equivalence 

<P0» 

C( 2276 ) ) 

(HSUBO. 

02277)) 

0058 

EQUIVALENCE 

(SO* 

C< 2278) ) 

(T LN* 

02279)) 

0059 

EQUIVALENCE 

(T. 

C( 2280) ) 

(AAY LN, 

02281)) 

0060 

EQUIVALENCE 

( AAY » 

C ( 2282 1 ) 

(CPSUM* 

0(2283 ) ) 

0061 

EQUIVALENCE 

<HC, 

C( 2284 ) ) 

(TC LN, 

0 2285)) 

0062 

EQUIVALENCE 

(PCP(l), 

C ( 2266 ) ) 

(PCPt 25 ) » 

0 2310) ) 

0063 

EQUIVALENCE 

( DATUM ( 1 ) * 

C ( 2311 ) ) 

(DATUM13) , 

02313)) 

0064 

EQUIVALENCE 

(PC. 

0 2314) ) 

(TC* 

O 2315) ) 

0065 

EQUIVALENCE 

( IPRO0 , 

02316)) 

( IFIXT * 

02317) ) 

0066 

EQUIVALENCE 

( IHS* 

02318)) 

< ICOND* 

0 2319)) 

0067 

EQUIVALENCE 

(ISYM* 

C (2320 ) ) 

, { (PROD* 

02?21)l 

0068 

EQUIVALENCE 

( IDID * 

02322)) 

(LDRUM* 

0 2323) ) 

0069 

EQUIVALENCE 

< IDRM. 

0 2323) ) 

(KDRUM, 

0 2324)) 

0070 

EQUIVALENCE 

<L* 

C ( 2325 ) ) 

(LI* 

0 2326 ) ) 

0071 

EQUIVALENCE 

(M* 

0 2327)) 

(Ml* 

02328)) 

0072 

EQUIVALENCE 

(N, 

C ( 2329 ) ) 

(IQ* 

0 2330)) 

0073 

EQUIVALENCE 

( IQ1. 

C ( 2331 ) > 

(IQ2. 

0 2332 ) ) 

0074 

EQUIVALENCE 

(IQ3. 

0 2333)) 

(KMAT. 

02334)) 

0075 

EQUIVALENCE 

( IMAT* 

02335) > 

(IUSE* 

0 2335 ) ) 

0076 

EQUIVALENCE 

( I ADD, 

C ( 2336 ) ) 

( ITNUMB* 

02337)) 

0077 

EQUIVALENCE 

( I TAPE » 

C ( 2338 ) ) 

(P* 

02339)) 

0078 

EQUIVALENCE 

( IDEBUG * 

C ( 2340 ) ) ! 

(IFROZ* 

0 2341) ) 

0079 

EQUIVALENCE 

(All), 

0 2342)), 

(A ( 1350) t 

03691) ) 

0080 

equivalence 

(COEFTl(l) 

♦ C( 3692) ) * (COEFTlt 1350)* 05041)) 

0081 

equivalence 

(C0EFT2U) 

» O 50421) 

* (C0EFT21 1350) * 06391)) 

0082 

equivalence 

( COEFT ( 1 ) * 

0 6392) ) , 

* (COEFT ( 1350) » 07741)) 

0083 

EQUIVALENCE 

(ATOM(l)* 

0 7742) )» 

( ATOMI 303) » 

0 8044) ) 

0084 

equivalence 

(MATOM(l)* 

0 7742)), 

i (MAT0MO03I 

I* 0 8044)) 

0085 

EQUIVALENCE 

(KORE* C ( 8047 ) ) 



0066 

EQUIVALENCE (MT»DMT) 




0087 

EQUIVALENCE 

(HS»MHS),(TS 

»MTS) .(PT.MPT) * (TP»MTP) . (DET.MDET) 

0068 

equivalence 

( PROB ,MPR08 ) 

♦ (ENO.MEND) 


0089 

EQUIVALENCE 

(TMLM*MTMLM) 

» (BLK.MBLK) 


0090 






0091 

DIMENSION 

G ( 20* 21 ) » 

A(15*90) ♦ 

EN ( 90) » 

EN LNI90) 

0092 

DIMENSION 

DEL N ( 90) * 

HO (90) * 

S ( 90 ) ♦ 

X ( 20 ) 

0093 

DIMENSION 

DELTA(20) ♦ 

80(151* 

PCP( 25) * 

PROD ( 3 ) 

0094 

DIMENSION 

COEFX(20)» 

DX(20) * 

FORM (15) 


0095 

DIMENSION C0EFT1 ( 15*90) 

» C0£FT2( 15*90) 


0096 

DIMENSION 

ELMT( 15)» 

DATA (23). 

DATUMO). 

FORMLA (18) 

0097 

DIMENSION 

BOX (15)* 

80F ( 15 ) * 

ANSI 454)* 

SYSTM( 15 ) 

0098 


DIMENSION LLMT( 15) »MTSYS( 15) *MDATA( 23) 
DIMENSION ANSLAB1 454) * COEFT (15 *90) 
DIMENSION MATOM ( 10l *3 ) » ATOMI 101*3) 


H 5*307362606060 
T S*6 37362606060 
P T *477363606060 
T P *637347606060 
DET >242363456060 
END “2 545246 06060 
BLK= 000000000060 
OMIT “464431636060 
DMT-606060606Q60 


READ IN INPUT DATA 

IF (ISYS-99) 401*403*401 
i READ TAPE 3 » (G< I) » I *1 *8044 ) 
REWIND 3 

IF (SENSE SWITCH 6) 651*719 


0099 

0100 
0101 
0102 

0103 

0104 

0105 

0106 

0107 

0108 

0109 

0110 
0111 
0112 

0113 

0114 

0115 

0116 

0117 

0118 

0119 

0120 



IFR02-0 
PAUSE 11111 
429 CALL INPUT 

IF IL) 651 *651 »433 

433 WRITE OUTPUT TAPE 6,443* HX»VXPLS*VXMIN*HF.VFPLS,VFMIN 
1* ( ELMT (IJ*60X(I)*B OF (I)»I“1?L) 

4A3 FORMAT ( 10H1OX IDANT 3E16.6/10H FUEL 3E16.6/<1H A6.2E20.81) 
C 

C RIGHT ADJUST ELEMENT SYMBOLS 
C 

DO 447 K=1*L 
TMLM * ELMT(X) 

ELMTIK) » ARSFI24. TMLM I 
B TMLM « ELMT IK) *0 00077 

IF IMTMLM-MBLK) 447,1447*447 
1447 TMLM * ELMTIK) 

ELMTIK) « ARSFI6, TMLM) 

447 CONTINUE 

IF <SYSTM(L+1 1)453*920*453 

920 IF I SYSTMI L 1 ) 921,453*921 

921 00 449 K=1*L 
DO 446 J=1*L 

IF ( LLMT ( < ) -MTSYS ( J 1 1 448*449*448 

448 CONTINUE 
GO TO 453 

449 CONTINUE 
C 

C CANCEL OMITS FROM PREVIOUS PROBLEM 


452 DO 1452 J=1»M 
COEFT 1 1 1 • J ) = DMT 
C0EFT2 ( 1 » J 1 * DMT 

1452 COEFT ( 1 , J ) = DMT 
IUSE*1 
GO TO 598 

453 DO 459 K=l»15 

459 SYSTMIK)=ELMT IK) 

CALL SEARCH 

598 IF (IUSE-2) 600*635,635 

C 

C SET ARRAY PROO TO BY”ASS ALL CONDENSED PHASES 

C 

600 PROD! 1) =0.0 
PROO (21*0.0 
IF ( M-35 1 198*198*1198 

1198 IF (M-70) 199,199*1199 

1199 IF (M-901 200*200*635 

8198 PRODI 2 1=377777777777 

B PR0DC3) = 377777777777 
TMP=PROD I 2 1 
PRODf 1) =ARSF<M,TMP) 

60 TO 201 

199 M12 = M-35 

8 PROD! 3) = 377777777777 
TMP=PR0D(3) 

PROD( 2 1 *ARSFIM12»TMP1 
GO TO 201 

200 M12 * M-70 

B PROO ( 3 1 * 377777777777 


0123 

0124 

0125 

0126 

0127 

0128 

0129 

0130 

0131 

0132 

0133 

0134 

0135 

0136 

0137 

0138 

0139 

0140 

0141 

0142 

0143 

0144 

0145 

0146 

0147 

0148 

0149 

0150 

0151 

0152 

0153 

0154 

0155 

0156 

0157 
0156 

0159 

0160 
0161 
0162 

0163 

0164 

0165 

0166 

0167 

0168 

0169 

0170 

0171 

0172 

0173 

0174 

0175 

0176 

0177 

0178 

0179 

0180 


<M12»TMP) 

201 IQ=L 

101 = 10+1 

102 = 101+1 

103=102+1 


C 

C DETERMINE WHICH GASEOUS SPECIES SHOULD BE OMITTED FROM THE PR08LEM 

C AND WHICH CONDENSED SPECIES SHOULD BE USED IN THE FIRST ITERATION 

C 

203 READ INPUT TAPE 7*204* IOATAI II * I *1 *8 1 

204 FORMAT C4(2A6»3X>) 

B S JW=DATA ( 1 ) *( -DMT 1 
B IF(SJW)207, 220*207 

207 DO 213 K=I»4 
DO 211 J«1*N 
DO 208 1=2*3 
KK=2*K+I-3 

B SJW=DATAIXKJ*I-C0EFT2(I*J)) 

B IF ( SJW 1211*208*211 

208 CONTINUE 

IF (J-M) 209.209*210 

209 CALL BYPASS (J*2) 

11209 GO TO 213 

210 CALL BYPASS IJ*3> 

11210 GO TO 213 

211 CONTINUE 
213 CONTINUE 

GO TO 203 

220 CONTINUE 

DO 222 J«1»M 
CALL BYPASSIJ*!) 

IF IIPROD - 2) 221*222*221 

221 COEFT1 ( 1* J) = OMIT 
COEFT2 1 1 ♦ J ) =OMI T 

222 CONTINUE 
C 

C ARRANGE ANSWER REGION 
C 

1 = 1 

DO 602 J*1 »N 

ANS ( 1 1 =C0EFT2 1 1 » J 1 

ANSI 1 + 1 )«COEFT2 (2* J) 

ANS (I +2 )=COEFTZ (3*J) 

ANSI 1+3) ■ 0.0 
602 1=1+4 
K=4*N 

605 I-X+34 

ANS m -ANS (X.) 

K=K— 1 

IF IK) 651*607,605 
607 DO 609 K»1 *34 
609 ANSIK) • 0.0 

DO 1700 K- 1* 454 

1700 ANSLABIK) « ANS IK) 

00 1701 J * 1. 15 
DO 1701- K • 1* 90 

1701 CO’-FTIJ.K) ■ COEFT1I J,K) 



0183 

0134 

0185 

0186 

0187 

0188 

0189 

0190 

0191 

0192 

0193 

0194 

0195 

0196 

0197 

0198 

0199 

0200 
0201 
0202 

0203 

0204 

0205 

0206 

0207 

0208 

0209 

0210 
0211 
0212 

0213 

0214 

0215 

0216 

0217 

0218 

0219 

0220 
0221 
0222 

0223 

0224 

0225 

0226 

0227 

0228 

0229 

0230 

0231 

0232 

0233 

0234 

0235 

0236 

0237 

0238 

0239 

0240 



88 


C DETERMINE THE TYPE OF PROBLEM 0242 

C 0243 

700 I FR0Z= 1 0244 

701 READ INPUT TAPE 7*703 *PR08»KASE 0245 

703 FORMAT <A5iI5) 0246 

IF (MPR08-MHS) 705*901.705 0247 

901 IPR0B=1 0248 

GO TO 715 0249 

705 IF (MPROB-MTS) 707*902*707 0250 

902 I PROS = 2 0251 

GO TO 715 0252 

707 IF ( MPR08-MPT ) 709*903*709 0253 

903 IPR0B=3 0254 

GO TO 715 0255 

709 IF ( MPR08-MTP } 711.904.711 0256 

904 IPR0B=4 0257 

GO TO 715 0258 

711 IF (MPROB-MDET) 713*905*713 0259 

905 I PR08= 1 0260 

I FR0Z=-1 0261 

GO TO 719 0262 

713 IF (MPROB-MT 1631*429*631 0263 

715 DO 716 K=l,25 0264 

716 PCP(K»=0.0 0265 

1=0 0266 

1716 READ INPUT TAPE 7*718*(G(K) *K=1*5) 0267 

IF(6(1J)719*719*717 0268 

717 DO 1717 K=1 *5 0269 

I K= I +K 0270 

1717 PCP ( I K ) =G ( K ) 0271 

1=1+5 0272 

GO TO 1716 0273 

718 FORMAT! 5F10«2» 0274 

C 0275 

C DETERMINE THE ASSIGNED VALUES FOR THE PROBLEM 0276 

C 0277 

719 READ INPUT TAPE 7.721 »EQRAT*0 F »F PCT*PC»TC*KODE* IDEBUG 0278 

721 FORMAT ( 5F10.2. 15* 16X* I 1 > 0279 

IF ( EQRAT I 725.725*723 0280 

723 0 F=(-£QRAT*VFMIN~VFPLS)/(VXPLS+EGRAT*VXMIN) 0281 

F PCT=100.0/U.0+0 F) 0282 

GO TO 745 0283 

725 IF (0 F) 731.731*727 0284 

727 F PCT=100*0/( 1*0+0 F) 0285 

729 EOR AT = A8SF ! ! 0 F*VXPLS+VFPl,S)/ <0 F*VXMIN+VFM1N> ) 0286 

GO TO 745 0287 

731 IF f F PCT> 700*700*733 0288 

733 0 F=(100*0-F PCTJ/F PCT 0289 

IF 10 F ) 719*1733*729 0290 

1733 IF { VFMIN) 729. 746,729 0291 

745 IF (0 F) 719.746.746 0292 

746 DO 747 1=1, L 0293 

747 BOmMO F*BOX( I >+BOF ( I J )/( 1*0+0 F> 0294 

IF (IPR08-U 651*749*748 0295 

748 HSUB0=0.0 0296 

GO TO 755 0297 

749 HSUB0=(O F*HX+HF )/{ 1*0+0 FJ 0298 

755 WRITE OUTPUT TAPE 6*?60*KASE,PR0B*0 F*F PCT.EQRAT*PC»HSUBO. 0299 

1 180(1), 1=1, U 0300 


760 FORMAT ( 1H1 I 5*3X»A6/1H 4E17.8/(1H 7E17*8)J 
HSUBO=HSUBO/1 *98726 
DO 1771 I * 1* 454 

1771 ANSin = ANSLABU1 
RH0=RH0X+0 F*RHOF 

IF (RHO) 772*772,771 

771 RHO=( 1.0+0 F)*RHOX*RHOF/RHO 

772 DO 1772 I » 1* 454 

1772 ANSLAB(I) = ANS(I) 

775 IF (IFROZ) 777.651*779 
777 CALL C0RE4 

IF (KORE) 1*779.1 
779 CALL C0RE2 
GO TO 1 
C 

C ERROR PRINT OUT 
C 

631 WRITE OUTPUT TAPE 6*633 .PROB.KASE 

633 FORMAT (21H1THERE IS NO PROBLEM A6*2X*I5) 

GO TO 651 

635 WRITE OUTPUT TAPE 6.637 

637 FORMAT ( 47H1TR0UBLE IN COMPILING MASTER THERMODYNAMIC TAPE) 
REWIND 4 

639 READ TAPE 4 , < DATA( I ) * I *1 *23 ) 

WRITE OUTPUT TAPE 6»640*(DATA( I J *l«l*23) 

640 FORMAT ( 1H 3A6,2F10*l/( 1H 2F8.1 ,7E14.6>) 

IF (MDATA(l)-MEND) 639,900.639 

900 WRITE OUTPUT TAPE 6,643* ( (COEFTl ( K, J > ,K«1 , 14) * J»1 ,N ) 

WRITE OUTPUT TAPE 6.643* ( (C0EFT2IK.U) *K=1*14> *J=1,N) 

643 FORMAT ( 1H 3A6, 2F15.2/2F8.1 ,7E12.4/V ) 

651 REWIND 4 

PAUSE 77777 


0303 

0304 

0305 

0306 

0307 

0308 

0309 

0310 

0311 

0312 

0313 

0314 

0315 

0316 

0317 

0318 

0319 

0320 

0321 

0322 

0323 

0324 

0325 

0326 

0327 

0328 

0329 

0330 

0331 

0332 



SUBROUTINE SEARCH 


0333 
033 A 
0335 


COMMON C 





0336 

EQUIVALENCE 

(Gil). 

C< 1 ) ) , 

(6(420) * 

Cl 420) ) 

0337 

EQUIVALENCE 

(ANSI 1) » 

C(421 ) ) * (ANSI454), 

C( 874) ) 

0338 

EQUIVALENCE 

IHSUM* 

C(424) ) , 

(SSUM* 

C( 425) ) 

0339 

EQUIVALENCE 

(WTMOL* 

CI426) >» 

(CP* 

CI427) ) 

0340 

EQUIVALENCE 

(DLMPT. 

C (428 ) )* 

( DLMTP* 

C( 429) ) 

0341 

EQUIVALENCE 

(GAMMA. 

C (430 ) ). 

( ARATIO * 

C( 431 ) ) 

0342 

EQUIVALENCE 

IVMACH, 

C ( 432 ) ) » 

(SP IMP, 

C(433> ) 

0343 

EQUIVALENCE 

(VAC I . 

C ( 434 ) ) * 

(CF, 

C < 436 ) ) 

0344 

EQUIVALENCE 

I RHO I * 

CI437) )• 

(RHOVAC. 

C ( 438 ) ) 

0345 

EQUIVALENCE 

(RHO* 

C ( 439 ) ) 



0346 

EQUIVALENCE 

IT PI * 

C ( 440 ) ) . 

(PI I, 

C(441) ) 

0347 

EQUIVALENCE 

(EP PI. 

C ( 442 > ) ♦ 

(AW PI, 

C(443) ) 

0348 

EQUIVALENCE 

IT ETA. 

C ( 445 ) ) 



0349 

EQUIVALENCE 

(ETA I. 

, C ( 446) ) * 

(EP ETA* 

CI447) 1 

0350 

EQUIVALENCE 

(AW ETA, 

C ( 448 ) ) * 

(T SIG, 

CI450) > 

0351 

EQUIVALENCE 

(SIG I. 

C ( 451 > ) » 

(EP SIG. 

CI452) ) 

0352 

EQUIVALENCE 

(AW SIG, 

C<453) ) 



0353 

EQUIVALENCE 

( ANSLAB ( 1 ) 

, C ( 875 ) ) * 

(ANSLA8I454) 

» C ( 1328 ) ) 

0354 

EQUIVALENCE 

(FORM (1 ) , 

C ( 1329 ) ) , 

(FORM (15) , 

C( 1343 ) ) 

0355 

EQUIVALENCE 

( ELMT ( 1 > * 

C( 1344) ) , 

( ELMT( 15 ) , 

C( 1358 ) > 

0356 

EQUIVALENCE 

(LLMT(I) , 

C( 1 344 ) / » 

f LLMTI 15 ) * 

Cf 1358 ) } 

0357 

EQUIVALENCE 

( DATA ( 1 1 , 

C! 1359) )» ' 

( OAT A ( 2 3 ) ♦ 

C( 1381 ) ) 

0358 

EQUIVALENCE 

( MDAT A ( 1 * , 

C( 1359) ) . 

(MDATA ( 23 ) 

. C < 1381 > ) 

0359 

EQUIVALENCE 

( EN ( 1 ) * 

C ( 1382 ) ) , 

( EN ( 90 ) » C(147U> 

0360 

EQUIVALENCE 

( ISYS. 

CU472M* 

(JEAN, 

C( 2473) ) 

0361 

EQUIVALENCE 

( ACX . 

C ( 1474) )* 

( ACF * 

C ( 1475) ) 

0362 

EQUIVALENCE 

( AMX* 

C ( 1476 ) ) , 

(AMF, 

C 1 1477 ) ) 

0363 

EQUIVALENCE 

( RHOX , 

C( 1478) ) , 

(RHOF, 

Cl 1479) ) 

0364 

EQUIVALENCE 

(C OEFXllif 

CI2480M* I COEFX ( 20 ) , CI1499)) 

0365 

EQUIVALENCE 

(DX( 1) . 

C( 1500) ). 

(DX ( 20 ) . 

C( 1519) > 

0366 

EQUIVALENCE 

( FORMLA ( 1 ) 

* CI15201) 

, ( FORMLA (18)* C ( 1537 ) ) 

0367 

EQUIVALENCE 

(MMLA(l) , 

C ( 1520 ) ) * 

1 MMLA ( 18 > , 

C ( 1537 ) ) 

0368 

EQUIVALENCE 

1 PROD/1) , 

CI1538) )» 

(PROD (3), 

C 1 1540 ) ) 

0369 

EQUIVALENCE 

(SYSTM< 1 ) . 

C( 1541 ) ) * 

(SYSTMI 15) 

* C( 1555) ) 

0370 


EQUIVALENCE 
EQUIVALENCE 
EQUIVALENCE 
EQUIVALENCE (KODE 
EQUIVALENCE ( KONT 
EQUIVALENCE 
EQUIVALENCE 
EQUIVALENCE 
EQUIVALENCE 
EQUIVALENCE 
EQUIVALENCE 
EQUIVALENCE 
EQUIVALENCE 
EQUIVALENCE 
EQUIVALENCE 
EQUIVALENCE 
EQUIVALENCE 
EQUIVALENCE 
EQUIVALENCE 
EQUIVALENCE 
EQUIVALENCE 
EQUIVALENCE 


< MTSYSI 1 1 * CI1541))* 

< OF » C ( 1 556 ) > * 

IEQRAT, C ( 1558 ) ) 

1559))* (KASE* C( 15601) 

<1561 ) I ♦ ( NF » C 1 1 562 ) ) 

( NO » C ( 1563 ) ) * (NE* C ( 1 564 ) ) 

I NOEQi C ( 1565 ) ) 

(BOX(l), C 1 1771 ) ) » ( BOX (151* CI1785)) 

( BOF 111* C 1 1786 > ) * (B0F(15>* C(1800)) 

I HX» C(1801))» <HF, CI 1802)) 

(VXPLS» C( 1803) ) * (VXMIN* CI1804)) 
(VFPLS* C( 1805 ) ) » ( VFMIN* C<1806>) 
(EN LNil). C ( 1861 > ) * (EN LN<90)* CI1950)) 
(DEL Nil). C< 1951 ) ) * (DEL N(90), C(20*0)) 
( HO ( 1 ) * C 1 2041 ) ) » (H0(90) ♦ CI2130)) 

ISIUi C ( 2 13 1 ) ) » I S( 90 ) . C ( 2220 ) ) 

( X( 1 ) « C { 2221 > ) » ( X ( 20 ) * CC2240) ) 

( DELTA ( 1 ) * C ( 2241 ) ) > ( DELTA! 20 1 » C( 2260) ) 
( BO < 1 ) * C < 2261 ) ) • (60(15)* C!2275>) 

(PO. C(2276)J* (HSUSO* C(2277)J 

(SO* C ( 2278 > ) » (T LN» C(2279)) 

(T* C ( 2280 ) ) * ( AAY LN» C(2281)» 


0371 

0372 

0373 

0374 

0375 

0376 

0377 

0378 

0379 

0380 

0381 
0362 

0383 

0384 

0385 

0386 

0387 
0386 

0389 

0390 

0391 

0392 


C 

c 


c 

c 

B 


EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 


(PCP(l) * 

( DATUM (1 > 


( IQ1 * 
( IQ3 * 


I ITAPE. 

( I DEBUG* 
(All). 
(COEFTKl 
(C0EFT211 i 
( COEFT ( 1 ) i 
( ATOM ( 1 ) j 
(MATOM(l) ■ 
<C12»MM) * (E 
( 6AS»MGAS ) 
(C10.MC10) 


C(2263 ) J 
C ( 2285 ) ) 
CI2310)) 

C( 2313 ) ) 
CI2315) ) 
C(2317) ) 

C ( 2319) ) 

Cl 2321 ) ) 
CI2323)) 
CI2324) ) 

C (2326 ) ) 

C (2328 ) ) 

C ( 2330 ) ) 

C ( 2332 ) ) 

C ( 2334) ) 
C(2335) ) 

C( 2337 ) ) 

C ( 2339 ) ) 

( IFROZ* CC2341)) 

( A( 1350) » C ( 3691 ) ) 

* (COEFTK 1350) » C15041)) 
(C0EFT2(1350). C (6391 ) ) 
(COEFT ( 1350) ♦ C ( 7741 ) ) 

1 ATOM (303) * C( 8044) ) 

* C ( 7742 ) ) * (MAT0M1 303) » C(«044)» 

.ME) * (END*MEND)*(BLK.MBLK) » ( RPN.MRPN ) 
*(SOL*MSOL)*IBLIQ»MLIQ).(BLPN.MLPN) 

* ( PLS*MPLS ) » ( SYMBL *M8L )»(BMIN*MMIN) 

PI) 


C ( 2282 ) f 
C 1 2284 ) ) 
C( 2286 ) ) 
C12311) ) 
C(2324) >i 
C t 2316 1 ) 
C < 2318 > ) 
C ( 2320 ) ) 
C (2322 ) ) i 
C12323) ) 
C ( 2325 ) ) 
C ( 2327 ) ) 
C ( 2329 ) ) 
C ( 2331 ) ) 

C ( 2333 ) > 
C ( 2335 ) ) 
C ( 2336 ) ) 

C 1 2336 ) I ■ 
C ( 2340 ) ) ■ 
C ( 2342 ) ) 

* Cl 3692) 

* C( 5042)1 
C ( 6392 ) ) i 

Cl 7742) >i 


(CP SUM* 

(TC LN* 
(PCP I 25 ) * 

< DATUM! 3 ) * 
(TC* 

< IFIXT • 
(ICOND. 
(IPROO* 
(LDRUM* 

I XDRUM* 
(LI* 

(Ml* 

(IQ* 

( IQ2* 

( KMAT * 
(IUSE* 
(ITNUMB. 
(P. 


DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 


G( 20*21 ) » 
DEL N ( 90 ) • 
DELTA ( 20 ) * 
COEFX ( 20 ) , 
COEFTK 15 *90 ) 
ELMT ( 15 ) . 
B0X(I5h 


A ( 15 .90 ) ♦ EN ( 90 ) * 

HOI 90 1 . $( 90 ) . 

60(151* PCP (25 1 * 

DX ( 20 ) ♦ FORM! 15 ) 

. C0EFT2 (15*90) 

DATA( 23 » » DATUM ( 3 ) » 

S0F<15»* ANS(454) » 


LLMT ( 15 ) »MTS V S ( 15 ) *MDATA ( 23) 


ANSLAB I 454) . 
MATOM( 101*3). 
MMLA(lfi) 


COEFT ( 15 *90 ) 
ATOM( 101*3) 


EN LN ( 90 ) 
X( 20) 
PRQD(3i 


FORMLA( 18 ) 
SYSTMHS) 


BLK =000000000060 
RPN =000000000034 
BLPN= 0000000000 74 
GAS=000000000027 
SOL =000000000062 
8L 10=000000000043 
PLS= 000000000020 
BMI N=000000000040 
E= 000000000025 
£ND=254524606060 
C10=000000000012 

02=000014000000 
CF1 0=000012 000000 


KION-2 


0395 

0396 

0397 

0398 

0399 

0400 

0401 

0402 

0403 

0404 

0405 

0406 

0407 

0408 

0409 
0>10 

0411 

0412 

0413 

0414 

0415 

0416 

0417 

0418 

0419 

0420 

0421 

0422 

0423 

0424 

0425 

0426 

0427 

0428 

0429 

0430 

0431 

0432 

0433 

0434 

0435 

0436 

0437 

0438 

0439 

0440 

0441 

0442 

0443 

0444 

0445 

0446 

0447 

0448 

0449 

0450 

0451 

0452 
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DO 1 K»1 »L 

IF (LLMT(K)-ME) 1»2»1 

1 CONTINUE 
60 TO 3 

2 KION-1 
TEMP-ELMT(K) 

ELMTm-ELMT(L) 

ELMTUJ-TEMP 

3 ISOL-O 
M*0 

00 4 J-1.15 
DO 4 K-1,90 
COEFT2! J.K) - 0.0 

4 COEFTKJ.JO ■ 0.0 

00 6 J-1.1350 

6 Af J > ■= 0.0 
REWIND 4 

7 READ TAPE 4. ( DATA ( I) » I -I #23 ) 

IF (M0ATA( 1 1 -MEND) 906.171. 900 

C 

C UNPACK THE BCD FORMULA FOR THE PRODUCT 
C 

900 DO 16 I»l»2 

16 DATUM! I J -DATA (I) 

J=>1 

1 = 1 
13 K=0 

17 TMP1 = DATUM (I) 

FORMLAU) * ARSF !30»TMP1 J 

B DATUM! 1 1 «= ’ ALSF !6 »TMP1> 

JaJ + 1 

IF ( K— 4 ) 925.925,21 

925 K « K+l 
60 TO 17 

21 IFII-1I 926.926.25 

926 I-I+l 

60 TO 13 
C 

C BEGIN SEARCH FOR FIRST NON BLANK ALPHANUMERIC CHARACTER 
C 

25 J*12 

29 J=J 

IF (MMLA! J>— MBLK) 35.950,35 

950 IF (J-l) 30.30.951 

951 J » J-l 
GO TO 29 

30 WRITE OUTPUT TAPE 6.31. <DATA! I) . 1=1 .31 

31 FORMAT (14H THE FORMULA 3A6.33H IS INCORRECT ON THE MASTER TAPE I 
GO TO 7 

35 IF ! MMLA ( J ) — MRPN ) 30.952*30 

952 J = J-l 

IF (MMLA! J)— MGAS) 953,39.953 

953 IF ( MMLA ( J ) — MSOL ) 954.41.954 

954 IF (MMLA! JJ— ML 10) 30.41,30 
39 I TYPE-1 

GO TO 47 
41 ITYPE-2 
47 J»J-1 

IF (MMLA! JJ-MLPN ) 30.955*30 

955 J=J-1 


0453 

0454 

0455 

0456 

0457 

0458 

0459 

0460 

0461 

0462 

0463 

0464 

0465 

0466 

0467 

0468 

0469 

0470 

0471 

0472 

0473 

0474 

0475 

0476 

0477 

0478 

0479 

0480 

0481 

0482 
048 3 

0484 

0485 

0486 

048 7 

0488 

0489 

0490 

0491 

0492 

0493 

0494 

049 5 

0496 

0497 

0498 

0499 

0500 

0501 

0502 

0503 

0504 

0505 

0506 

0507 

0508 

0509 

0510 

0511 

0512 


C OBTAIN AND STORE THE FORMULA NUMBERS A(K*J) 
C 

DO 48 K-1,15 
48 FORM(K>-0.0 
51 NLSW-1 
NUMB-0 
55 1CNT-0 
57 JCNT* J- ICNT 

IF ( JCNT) 30.81.59 
59 IF (MMLA! JCNT ) - MC10) 958.67.67 

958 GO TO (63.85J.NLSW 
63 ICNT-lCNT+1 

GO TO 57 

67 GO TO (69.63) .NLSW 
69 IF ( ICNT ) 959.330.959 
330 IF(KION-1)30. 333.30 
333 NLSW-2 
GO TO 57 

959 IF (ICNT-2J 77.73.30 
73 NUMB = MMLA! J-l) * 10 
77 TMP1 « FORMLA(J) 

TMP1 = ALSF ( 18 .TMP 1 ) 

B TMP1 «■ TMP1 * 37777777T777 
B TMP 2 - FORMLA(J) * 4000 

B TMP J - TMP1 + TMP2 

NUMB « NUMB+ MTMP1 
VALUE«NUMB 
J-J-ICNT 
NLSW-2 
GO TO 55 

81 GO TO (30, 85). NLSW 

85 IF (ICNT) 960.30,960 

960 SYMBL = 0.0 

IF ( NUMB ) 86 ,95 .86 

86 IF (ICNT-2) 93.89.30 
89 TMP1 ■ FORMLA(J-l) 

SYMBL « AL$Ft6.TMPl) 

93 MBL - MBL + MMLA ( J I 
GO TO 107 

95 IF (JCNT >30.30 .96 

96 IF (MMLA! J7 -MPLS) 97*970.97 
970 FORM(L)*-ICNT 

GO TO 109 

97 IF (MMLA(J)-MMIN) 107.975.107 
975 FORM<L)«ICNT 

101 GO TO 109 
107 DO 111 K-l.L 

IF (MBL-LLMT ( K ) ) 111.105.111 
111 CONTINUE 
GO TO 7 

105 FORM! K) -VALUE 
109 J-J-ICNT 

IF (J) 30.121.51 
121 IF ( I TYPE-1 ) 30.133,137 
133 M-M+l 
J-M 

GO TO 145 
137 J-90MSOL 
ISOL-ISOL+1 


0513 

0514 

0515 

0516 

0517 

0518 

0519 

0520 

0521 

0522 

0523 

0524 

0525 

0526 

0527 

0528 

0529 

0530 

0531 

0532 

0533 

0534 

0535 

0536 

0537 

0538 

0539 

0540 

0541 

0542 

0543 

0544 

0545 

0546 

0547 

0548 

0549 

0550 

0551 

0552 

0553 

0554 

0555 

0556 

0557 

0558 

0559 

0560 

0561 

0562 

0563 

0564 

0565 

0566 

0567 

0568 

0569 

0570 

0571 

0572 



145 

147 

C 

C 

C 

151 


155 


159 


1955 


1959 


C 

171 

173 

175 

177 

181 

182 


184 


186 


185 


217 

219 

225 


DO 147 K®1 » L 
A I K » J ) a FORM ( K I 
CONTINUE 

ARRANGE THERMODYNAMIC DATA IN CORE ORDERED BY INTERVAL 
I T=0 

TEMP - DATAI1) 

DATA! 1 > = DATA! 3) 

DATA I 3 ) * DATA! 2 ) 

DATA ( 2 ) = TEMP 
DO 155 K “ 1 * 5 : 

COEFT1 ( K.J) = DATA(K) 

DO 159 K=6 * 14 
KIT* K+IT 

COEFTKK.J) * DATA! KIT ) 

IT= IT+9 
D01955 K=1 * 5 
COEFT2IK.J) * DATA(K) 

D01959 K=6* 14 
KIT = K+IT 

COEFT2 ( K» J ) * DATA(KIT) 

GO TO 7 

GO TO NEXT MOLECULE 


ELIMINATE GAP BETWEEN GASES AND CONDENSED PHASES 

N=M+ISOL 
I USE* 1 

IF ( N-90 ) 175.225.181 
IF (ISOL) 177.225.184 
IUSE=2 
GO TO .225 ' 

write output tape 6»i8? 

FORMAT I45H TOO MANY REACTION PRODUCTS FOUND ON THE TAPE) 

IUSE=2 

GO TO 225 

KK = 90-1 SOL 

DO 186 J = 1. ISOL 

MJ = M+J 

KJ = KK + J 

DO 186 K = 1.15 

COEFTl(K.MJ) = C0EFT1 ( K.KJ) 

DO 185 J = 1 . 1 SOL 

MJ = M+J . 

KJ = KK + J 
DO 185 K = 1.15 
C0EFT2IK.MJ) * C0EFT2 (K »KJ) 

DO 219 J=1 » I SOL 
MJ=M+J 
KJ = KK +J 
DO 217 K*1 . 15 
A(K.MJ) = A (K .KJ) 

CONTINUE 
CONTINUE 
GO TO 225 
RETURN 


0575 

0576 

0577 
0576 

0579 

0580 

0581 

0582 

0583 

0584 

0585 

0586 

0587 

0588 

0589 

0590 
0592 

0592 

0593 

0594 

0595 

0596 

0597 

0598 

0599 

0600 
0601 
0602 

0603 

0604 

0605 

0606 

0607 

0608 

0609 

0610 
06X1 
0612 

0613 

0614 

0615 

0616 

0617 

0618 

0619 

0620 
0621 
0622 

0623 

0624 

0625 

0626 

0627 

0628 

0629 

0630 

0631 



92 


C 

c 


SUBROUTINE BYPASS (J.IARG) 


COMMON C 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 


(6(11, 
(ANSI 1 1 
IHSUM* 

( WTMOL » 
(DLMPT, 
(GAMMA, 

( VMACH, 
IVAC1 » 
(RHOI , 
(RHO» 

(T PI* 

(EP PI* 

(T ETA, 
(ETA I. 

(AW ETA* 
(SIG I* 

(AW SIG, 

(ANSLAB(l) 

( FORM ( 1 ) 

(ELMT(l) 

(LLMTdl 

(DATA(l) 


can* <G(420) 
C(421)), (ANSI 454) 
C ( 424 ) ) * (SSUM 
C (426) ) * 

C(428) ) » 

C(430> )* 

C (432 ) ) » 

C(434) ) * 

C( 43? ) ) » 

C(439) ) 

C ( 440 ) ) * 

C ( 442 > ) * 

C ( 445 ) ) 

C ( 446 ) ) ♦ 

C ( 448 ) ) ♦ 

C(451 ) ) » 

C(453) ) 

C(875> ) * 

C ( 1329) ) 

C ( 1344 ) ) 

C< 13441) 

Cl 1359) ) 


(CP* 
(DLMTP* 
(ARATIO* 
(SP IMP* 
ICF* 

(RHOVAC, 

(PI I* 
(AW PI, 

(EP ETA* 
(T SIG* 
(EP SIG* 


C ( 420 ) ) 
C( 874) ) 
C ( 425 ) ) 
C ( 427 ) ) 
C ( 429 ) ) 
C ( 43 1 ) ) 
C ( 43 3 ) ) 
0436) ) 
0 438) ) 


0447)) 
0 450) ) 
0 452) ) 


( ANSLA81 454) » 01328)) 
( FORM ( 15) * 01343)) 

I ELMT( 15 ) » 0 1358)) 
(LLMT ( 15 ) * Ct 1356 ) ) 
(DATA(23) ♦ 01381)) 

(MDATA(23 ) * C< 1381)) 
01471) ) 
01473)) 
0 1475)) 

O 1477) ) 


(MDATA(l)* 01359)) 

< EN< 1 ) « 0 1382))* ( EN(90 ) * 

( I SYS* 01472))* (JEAN. 

(ACX* 01474))* (ACF* 

(AMX, 01476))# (AMF, 

(RHOX# 01478))* (RHOF* 01479)) 

(COEFX(l). C ( 1480 ) ) * (COEFX (20) * C(1499)) 

( OX ( 1 ) « C ( 1500) ) * (DX(20 » » C( 1519 ) ) 

( FORMLA ( 1 ) » C ( 1520) ) » ( FORMLA ( 18 ) » C* 15371 > 

( MMLA ( 1 ) » 01920))* (MMLA(lfl). C(1537)) 

( PROD ( 1 ) * 0 1538) ) * (PR00(3)» 0 1540)) 

(SYSTM(l). 01541))* (SYSTMi 15) * C( 1555M 

(MTSYS(l)* 01541))* (MTSYS ( 15 ) ♦ 0 1555)) 

(OF. C( 1556) ) * (FPCT ♦ 0 1557)) 

(EQRAT. C ( 1558 > ) 

(KODE* 0 1559))* (KASE. C ( 1560 ) ) 

(KONT* C( 1561 ) ) * <NF* 01562)) 

(NO, 01563))* (NE* C(1564)) 


(NOEQ* 01565)) 

( BOX ( 1 ) ♦ C ( 1771 ) ) » 


( 80F ( 1 ) » 
(HX* 
(VXPLS* 
(VFPLS* 

(EN LN ( 1 ) • 
(DEL Nil)* 
I HO II)* 
(S(l)f 
(X ( 1) ♦ 
(DELTA(l)# 
( BO ( 1 ) * 
(PO* 

(SO* 

<T» 


Cl 1786) )< 
01801))* 
C(1803))i 
0 1805))) 
01861))! 
01951))* 
02041)) * 
02131)) * 
02221) I # 
02241) )* 
0 2261) ) , 
C( 2276D , 
02278) i i 

02280) ) i 


(BOX ( 15 ) * 
(BOF 115)* 
(HF » 

( VXMIN » 
(VFMIN* 

(EN LN( 90 ) i 
(DEL N( 90 ) 
(H0(90 J » 

( S ( 90 ) ♦ 
1X120) * 
(DELTAC20) 
(B0( 15 ) * 
(HSU0O, 

(T LN* 

( AAY LN. 


C( 1785 ) ) 
C ( 1800 1 > 
C 1 1802 ) ) 
Cl 1804) ) 
0 1806)) 
01950)) 
02040)) 
02130) ) 
02220 ) ) 
02240) ) 
02260) > 
02275) ) 
0 2277)) 
02279)) 
0 2281) ) 


0632 

0633 

0634 

0635 

0636 

0637 

0638 

0639 

0640 

0641 

0642 

0643 

0644 

0645 

0646 

0647 

0648 

0649 

0650 

0651 

0652 

0653 

0654 

0655 

0656 

0657 

0658 

0659 

0660 
0661 
0662 

0663 

0664 

0665 

0666 

0667 

0668 

0669 

0670 

0671 

0672 

0673 

0674 

0675 * 

0676 

0677 

0678 * 

0679 

0680 / 
0681 

0682 

0683 ; 

0684 

0685 

0686 * 

0687 

0688 

0689 

0690 

0691 


EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 


<HC» 

IPCPU) # 

( DATUM 11) * 

I PC* 

I IPROB. 

I IHS* 

( ISYM, 

( 1010* 

( IORM « 

(L* 

(M. 

IN* 

( 101 * 

( 103* 

( IMAT# 
t I ADO* 
(ITAPE* 

( IDEBuG * 

(A( 1 ) * 

( COEFTl 111* 
( C0EFT2 111* 
(COEFT(l) * 
(ATOM! 1) * 
(MATOM(l) * 
(CONS* JFCONS) 


C ( 2282 ) ) * 

(CPSUM* 

C (2283 ) ) 

C ( 2284 ) ) , 

(TC LN, 

C ( 2285 > ) 

C( 2286 ) ) * 

(PCP f 25 ) * 

C (2310) 1 

C ( 2311 ) ) • 

1 BATUMI 3) * 

Ct 2313) ) 

C < 2314 ) ) * 

(TC, 

CI2316) ) 

C( 2316 ) ) * 

(IFIXT* 

CI-2317 ) ) 

C( 2318 ) ) * 

( 1CONO* 

C 1 23 19 > ) 

C< 2320 ) > ♦ 

(IPROO* 

C ( 2321 ) ) 

C ( 2322 ) > » 

(LDRUM* 

C ( 2323 ) ) 

C ( 2323 ) ) • 

IKDRUM* 

C( 2324) > 

C ( 2325 ) ) » 

(LI* 

CI2326) ) 

C ( 2327 ) ) * 

(Ml* 

C ( 2328 ) ) 

C 1 2329 > ) * 

(IQ, 

C (2330 ) ) 

C ( 2331 ) ) * 

( IQ2* 

C 12332 ) > 

C (2333 1 1 , 

(KMAT, 

C ( 2334 ) ) 

C ( 2335 ) ) * 

< IUSE* 

Cl 2335 ) » 

C< 2336) > » 

(I THUMB* 

C(2337) ) 

C ( 2338 ) ) * 

<P* 

C(2339) ) 

C ( 2340 ) ) * 

( IFROZ, 

C12341) ) 

Cl 2342 ) ) * 

(A( 1350) * 

C ( 3691 » ) 

CI3692) ) 

(COEFTK 1350) * C(5041 

C ( 5042 > ) , 

(C0EFT21 1350) , C 1 6391 ) 

C ( 6392 ) ) * 

(COEFT ( 1350) » C ( 7741 ) 

C ( 7742 ) ) * 

ATOM! 303 ) , 

C I 8044 ) ) 

C ( 7742 ) ) * 

[MATOM ( 303 

, C ( 8044 ) ) 

» (MTEMP 

TEMP) 



DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 


6(20*21 ) » 
DEL N(90) ♦ 
DELTAI 20) » 
COEFX ( 20) * 
COEFTK 15*90 ) 
ELMT < 15 ) * 
BOX (15)* 


A ( 15*90) » 
HQ(90 ) » 
BOI 15 ) * 
DX(20) * 

» C0EFT2C 
DATA( 23 ) ♦ 
BOF { 15 ) » 


EN(90 ) » 
S(90)» 

PCP 125)* 
F0RM( 15) 

♦ 90) 

DATUM ( 3 ) » 
ANSI 454 ) * 


LLMT ( 15 ) *MTSYS( 15 ) *MDATA( 23 ) 
ANSLAB ( 454) * C0EFT(15»90) 

MAT0M( 101 *3 ) » AT0M( 101*3) 


EN LN ( 90 ) 
X ( 20 ) 
PR0D(3 ) 


FORMLA 118) 
SYSTM ( 15 ) 


I ARG= 1 MEANS JEST ONLY* IARG“2 MEANS ELIMINATE A SPECIES* IARG=3 
MEANS ADD ANOTHER SPECIES 


C0NS=1 

MLM=J 

IF 1 0-35 ) 2*2.102 
102 IF ( J-70) 1*1*101 
101 K n 3 

MLM*= J-70 
GO TO 3 

1 K=2 
MLM° J-35 
GO TO 3 

2 X»1 

3 IF (IARG-2) 4,5*7 

4 I PROD = 2 

KLM ■* 35-MLM 
TEMP = P.ROD(X) 

TEMP = LRSF(XLM»TEMP) 

IF (TEMP*CONS) 12*10.12 


0692 

0693 

0694 

0695 

0696 

0697 

0698 

0699 

0700 

0701 

0702 

0703 

0704 

0705 

0706 

0707 

0708 

0709 

0710 

0711 

0712 

0713 

0714 

0715 

0716 

0717 

0718 

0719 

0720 

0721 

0722 

0723 

0724 

0725 

0726 

0727 

0728 

0729 

0730 

0731 

0732 

0733 

0734 

0735 

0736 

0737 

0738 

0739 

0740 

0741 

0742 

0743 

0744 

0745 

0746 

0747 

0748 

0749 

0750 

0751 



12 I PROD = 1 
60 TO 10 
5 KLM = 35 - MLM 
TEMP = PROD( Kl 
TEMP = LRSF(KLM.TEMP) 

B If (TEMP * CONS) 10*6*?. 

B6 TEMP = TEMP +1 

B PRODOO = LLSFI KLM. TEMP) 

IF( M-J )11»10*10 
11 103=102 
102=101 
101=10 
10 =IQ-1 
60 TO 9 

7 KLM = 35 - MLM 
TEMP = PRODOO 
TEMP = LRSF (KLM *TEMP ) 

B IF < TEMP * 1) 110*10*11 
110 MTEMP=MTEMP-JFCONS 
B PROD(K) = LLSF ( KLM» TEMP) 
IFIM-Jim. 10*10 
121 10 = 101 
IQ1-IQ2 
102=103 
103=103+1 
9 SENSE LIGHT 4 
10 RETURN 


0754 

0755 

0756 

0757 

0758 

0759 

0760 

0761 

0762 

0763 

0764 

0765 

0766 

0767 

0768 

0769 

0770 

0771 

0772 

0773 

0774 

0775 

0776 

0777 

0778 



c 

c 


c 

c 

6 


B 

B 

B 

B 


SUBROUTINE INPUT 


COMMON C 

EQUIVALENCE 

EQUIVALENCE 

equivalence 

equivalence 

equivalence 

equivalence 

equivalence 

equivalence 

equivalence 

equivalence 

equivalence 

EQUIVALENCE 

EQUIVALENCE 

equivalence 

EQUIVALENCE 

equivalence 

equivalence 

EQUIVALENCE 

EQUIVALENCE 

equivalence 

equivalence 

equivalence 

equivalence 

equivalence 

EQUIVALENCE 

EQUIVALENCE 

equivalence 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 


IGU>* 

<ANS(1> 

(HSUM* 

(WTMOL* 

(DLMPT, 

I GAMMA* 

( VMACHt 
(VAC I , 

( RHO I » 
(RHO. 

(T PI* 

<EP PI* 

IT ETA, 
(ETA I, 

(AW ETA, 

(sig r, 

(AW SIG, 
(ANSLAB(l) 


can* (g ( 420 ) 

C1421))* (ANSI45A) 
0 424))* < SSUM 

0 426) ) 

C< 428 ) > 

0 430) ) 

CI432) ) 

C(434) ) 

0 437) ) 

0 439) ) 

0 440) J 
C ( 442 ) ) 

C ( 445 ) ) 

C ( 446 ! ) 

C ( 448) I 
C ( 451 ) I 
0 453) } 

C ( 875 ) ) 


(CP* 
(DLMTP* 
(ARATIO. 
(SP IMP, 
(CF, 

(RHOVAC, 


(EP ETA, 
(T SIG, 
(EP SIG, 


CC420) ) 
Cl 874) ) 
C (425 » » 
C ( 427 ) > 
CI429M 
CI431) I 
C(433) ) 
0 436) ) 
C 1 438 I > 

C 1 441 ) ) 
C<443) ) 

0447) > 
C(450H 
C(452) ) 


(ANSLABf 454) » C(1328>) 
( FORM ( 1 ) * C( 1329) >t (FORM! 15), CI1343)) 

(ELMT(I)J C ( 1344 ) ) » (ELMTt 15) * C C 1358 > ) 
U.LMTUW Cl 1344) ) « ILLMT1 15) » 0 1358)) 
(OATA(l), C ( 1359 )■) * (0ATAI23), CI1381)) 

(MOATA(l)* C ( 1359 ) ) * (MOATA (23 > » C<1381>) 
( EN ( 1 ) * C ( 1382 ) ) * (EN (90 ) * 0(1471)) 

0(1472)), (JEAN 
C ( 1474 ) > » (ACF, 

0(1476))* (AMF 
0(1478))* (RHOF 


C l 1473 ) ) 
0(1475)) 
0(1477) ) 
0(1479)1 


I 1 SYS , 

( ACX » 

< AMX* 

( RHOX , 

( COEFX ( 1 ) » 0(1480)), (COEFX(20>* 0(1499)) 

( DX ( 1 ) • 0(1500))* (DX< 20 ) , 0(1519)1 

(FORMLA(l), 0(1520))* (F0RMLA(18)» C(l537)) 

(MMLA(l), 0(1520)1* (MMLAU8I, 0(1537)1 
(PROO(l), 0(1538)), (PR00I3) ♦ 0(1540)) 

(SYSTM(l), 0(1541)), (SYSTMI15) * 0(1555)) 

(MTSYS(l), C ( 1541 ) ) ♦ (MTSYSI 15) * 0(1555)) 

(OF, 0(15561)* (FPCT » 011557)) 

(EQRAT, 0(1558)) 

( (CODE » 0(1559)), (KASE, 0(1560)) 


EQUIVALENCE 

(KONT, CU561M* 

NF, 

0 1562)) 

EQUIVALENCE 

(NO* 

01563)), 

(NE* 

01564)) 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

(NOEO, C < 1565 ) ) 

1 KD , 0 1763)) 

( 80X ( 1 ) » C ( 1771 ) ) * 

(BOX! 15) * 

0 1785) ) 

EQUIVALENCE 

IBOF(l), 

O 1786) ) * 

1 BOF 1 15 ) , 

0 1800) ) 

EQUIVALENCE 

<HX, 

01801)) * 

(HF, 

0 1802) ) 

EQUIVALENCE 

(VXPLS, 

0 1803))* 

(VXMIN, 

01804) > 

EQUIVALENCE 

(VFPLS, 

C ( 1805 ) ) » 

(VFMIN* 

O1806H 

equivalence 

(TELMT ( 1 ) , Ci 1807 1 ) » (T 

:LMTU5>, C ( 1821 ) ) 

EQUIVALENCE 

(EN LN < 1 ) * 

01861)), 

(EN LN ( 90 ) » 

0 1950)) 

EQUIVALENCE 

(DEL N ( 1 ) » 

C ( 1951 ) ) * 

(DEL N ( 90 ) » 

02040) > 

EQUIVALENCE 

( HO 1 1 ) , 

0 2041)1 » 

(H0(90) , 

02130)) 

EQUIVALENCE 

(S(l) , 

0 2131 ) ) » 

(S(90) » 

02220) ) 

EQUIVALENCE 

(X(l) * 

0 2221) )* 

(X(20) * 

CI2240) I 

EQUIVALENCE 

( DELTA! 1 ) 

C ( 2241 ) ) * 

<DELTA( 20) » 

0 2260)) 

EQUIVALENCE 

(80d) « 

C( 2261 ) ) * 

(BQ( 15) > 

0 2275)) 

EQUIVALENCE 

(PO, 

0 2276) ) , 

(HSU80* 

02277) ) 

EQUIVALENCE 

(SO, 

02278)) * 

(T LN* 

02279) ) 

EQUIVALENCE 

IT. 

02280))* 

t AAY LN, 

02281)) 

EQUIVALENCE 

(AAY, 

02262) >, 

(CPSUM, 

O 2283 ) ) 

EQUIVALENCE 

(HC, 

C ( 2284 ) ) * 

(TC LN* 

02285)) 

EQUIVALENCE 

(PCP(l), 

02286)) * 

(°CP(25>» 

O 2310) ) 

EQUIVALENCE 

(DATUM! 1), 

C ( 2311 ) ) * 

(DATUM! 3) » 

0 2313) ) 

EQUIVALENCE 

(PC» 

0 2314)) , 

(TC* 

02315) ) 

EQUIVALENCE 

< IPROB, 

0 2316)) * 

( IFIXT ♦ 

Cl 2317 ) ) 

EQUIVALENCE 

< IHS, 

0 2318) ), 

( ICOND* 

0 2319) l 

EQUIVALENCE 

< ISYM, 

C ( 2320 ) ) • 

( IPROD, 

02321) ) 

EQUIVALENCE 

( ID I D , 

C ( 2322 ) ) * 

(LORUM* 

0 2323)) 

EQUIVALENCE 

( IDRM , 

02323)) , 

(KDRUM* 

02324) ) 

EQUIVALENCE 

(L* 

023251), 

(LI, 

0 2326)) 

EQUIVALENCE 

(M. 

02327)), 

(Ml, 

0 2328)) 

EQUIVALENCE 

(N, 

02329) ) * 

(IQ, 

02330)) 

EQUIVALENCE 

( !Q1» 

C ( 2331 ) ) * 

( 1 02 » 

02332)) 

EQUIVALENCE 

( IQ3 » 

02333)), 

(K.MAT ♦ 

0 2334)) 

EQUIVALENCE 

(IMAT, 

02335)), 

(IUSE, 

O 2335 ) ) 

EQUIVALENCE 

( I ADD, 

0 2336) ) * 

( ITNUMB* 

0 2337)) 

EQUIVALENCE 

(ITAPE. 

C ( 2338 ) ) * 

(P* 

02339) ) 

EQUIVALENCE 

( IDEBUG* 

0 2340))* 

(1FR0Z, 

0 2341)) 

EQUIVALENCE 

(COEFTl(l) 

» C < 3692 ) > 

(C0EFT1 ( 1350) * 05041 

EQUIVALENCE 

(COEFT2I 1 

* C ( 5042 ) ) » 

(C0EFT2 ( 1350) » 06391) 

EQUIVALENCE 

(COEFT(l), 

0 6392)), 

( COEFT ( 1 350 ) * C (7741 ) 

EQUIVALENCE 

( ATOM ( 1 ) * 

0 7742) )» 

ATOM ( 303 ) , 

0 8044)) 

EQUIVALENCE 

(MATOM(l), 

C ( 7742 ) ) * 

(MATOM( 303 ) 

0 8044)) 

EQUIVALENCE 

A ( 1 ) , 0 8578)), IAI690), 09267)) 


EQUIVALENCE 

( MANAME ( 1 ),ANAME( 1) ) *(MANAME( 5) .A NAME (5)1 

DIMENSION TELMT ( 15 ) 
DIMENSION G ( 20, 2 1 ) , 

A ( 15,46) * 

EN ( 90 ) , 

EN LN(90) 

DIMENSION 

DEL N ( 90 1 « 

H0(9Q) » 

S(90)» 

X(20) 

DIMENSION 

DELTA! 20) * 

80(15), 

PCP ( 25 ) * 

PROD( 3) 

DIMENSION 

COEFX (20), 

DX(20), 

FORM (15) 


DIMENSION COEFTK 15,90) 

» C0EFT2 ( 15 

*90) 


DIMENSION 

ELMT ( 15 > * 

DATA! 23) » 

DATUM! 3) » 

FORMLAJ 18) 

DIMENSION 

80X(15) , 

BOF( 15) » 

ANSI 45* > » 

SYSTMf 15 ) 

DIMENSION LLMT ( 15 ) *MTSYSQ5 > »MDATA( 23) 


DIMENSION 

ANSLAB ( 454 ) 

C0EFTH5 

,90) 


DIMENSION 

MATOMl 101,3 

» ATOM! 101*3 ) 


DIMENSION MANAME ( 5 ) » 

ANAMEl 5 ) » 

ANUMI5) 



SUBROUTINE TO COMPUTE PROPELLANTS 
0X^466060606060 
IF ( JEAN-222 >51*50,51 

51 CALL BCREAD (ATOM! 101,3) »ATOM (1,1)) 
50 DO 52 1*1,15 

ELMT( I) *000000000 
BOF ( 11*0000000000 
BOX (I >*0000000000 
DO 52 J-1,46 
A( I, J) =0000000000 

52 CONTINUE 
TOTAL«0.0 
NF-0 
N0*0 
NE*0 

WRITE OUTPUT TAPE 6*400 
400 FORMAT (8H1 INPUT//) 


0779 

0780 

0781 

0782 

0783 

0784 

0785 

0786 

0787 

0788 
078.9 

0790 

0791 

0792 

0793 

0794 

0795 

0796 

0797 

0798 

0799 

0800 
0801 
0802 

0803 

0804 

0805 

0806 

0807 

0808 
0009 
0810 
0811 
0812 

0813 

0814 

0815 

0816 

0817 

0818 

0819 

0820 
0821 
0822 

0823 

0824 

0825 

0826 

0827 

0828 

0829 

0830 

0831 

0832 

0833 

0834 

0835 

0836 

0837 

0838 


0839 

0840 

0841 

0842 

0843 

0844 

0845 

0846 
0647 

0848 

0849 

0850 

0851 

0852 

0853 
0054 

0855 

0856 

0857 

0858 

0859 

0860 
0861 
0862 

0863 

0864 

0865 
0666 
0867 

0866 

0869 

0870 

0871 

0872 

0873 

0874 

0875 

0876 

0877 

0878 

0879 

0880 
0681 
0882 

0883 

0884 
0865 
0886 

0887 

0888 

0889 

0890 

0891 

0892 

0893 

0894 

0895 

0896 

0897 

0898 



100 2Den [> temp*ethr P dens 1 * <ANAME{ii ’ ANUM<i>,I!s1,5,,PEc-t,enth * 

1 FORMAT(5<A2*F7.5>.F8.5»F9.5.Al,F8.5*Al,F8.5) 

I F < ANUM ( 1) )99*200»99 

99 WRITE OUTPUT TAPE 6,402* < ANAME (I) * ANUMI I ) » I =1 *5 ) ,PECWT»ENTH .DEN i 
2TEMP»ETHR*DENS 

402 FORMAT flX*5 l A2 »1X »F7.4»2X ) .F8.4.2X ,F9»2*2X*A1 *2X,F8.3 *2X# 
2A1.3X.F8.5) 

DO 9 1*1*5 

9 TOTAL=TOTAL+ANUM( I ) 

I F ( ETHR— OX ) 11 » 10* 11 

10 N0*N0+1 
KK“NO 
KKK*NO 
NN-31 

GO TO 12 

11 NF-NF+1 
KK-NF+15 
KKK=NF 
NN-32 

12 00 98 J»I,5 
IFIANUMIJ)) 96*97*96 

96 DO 31 1*1*15 
IF(ANAME(J)“ELMTUI) 21*20*21 

20 NHUT»0 
33 KT-I 

GO TO 30 

21 IFfELMT ( I.) I 31.22*31 

22 ELMTC I»*ANAME(JI 
NE=NE+1 

nhut*i 

GO TO 33 
31 CONTINUE 
30 IF ( NHUT )14*15*14 

14 DO 16 1*1*101 

IF (MATOMI 1*1) -MANAME I J ) ) 16*17*16 

17 II*I 

GO TO 18 
16 CONTINUE 

WRITE OUTPUT TAPE 6.199 

199 FORMAT (32H0 THERE IS A BAD PROPELLANT CARO) 

L— 1 

RETURN 

18 A { NE » 37 ) "ATOM ( 11,2) 

A(NE»38)*AT0M< 1 1 *3) 

15 A(KT»KK)=ANUM( J) 

98 CONTINUE 

97 AfKKK.NN >=£NTH 
A(KKK»NN+2 ) “PECWT 
A I KKK *NN+4 ) =DENS 
A (KKK»NN+10)=D£N 
A(KKK.NN+12)*TEMP 
A{KKK.NN+14)=ETHR 
GO TO 100 

200 IFINE >202*201 *202 

201 L*0 
RETURN 

202 JEAN*222 

B WX*000000000000 

B WF=000000000000 


0901 

0902 

0903 

0904 

0905 

0906 

0907 

0908 

0909 

0910 

0911 

0912 

0913 

0914 

0915 

0916 

0917 

0918 

0919 

0920 

0921 

0922 

0923 

0924 

0925 

0926 

0927 

0928 

0929 

0930 

0931 

0932 

0933 

0934 

0935 

0936 

0937 

0938 

0939 

0940 

0941 

0942 

0943 

0944 

0945 

0946 

0947 

0948 

0949 

0950 

0951 

0952 

0953 

0954 

0955 

0956 

0957 

0958 


B HXaOOOOOOOOQOOO 

B HF*000000000000 

B RHOX=000000000000 

B RnOF=000000000000 

B VXPLS=00000000000 

8 VXMIN=00000000000 

B VFPLS=00000000000 

B VFM IN *00000000000 

B ACX»000000000000 

6 ACF =000000000000 

B AMX *000000000000 

B AMF=000000000000 

D0552 J*1 *N0 
D0552 1*1. NE 

552 A(J*39)*A(J.39)+A( I ,37J*A(I *J » 

DO 53 J=1*NF 
DO 53 1=1. NE 

53 A I J,40)=A(J.40)+AJ I *37 ) *A ( I * J+15 ) 

IF ( NO ) 1000*1001,1000 

1000 DO 550 I *1 *N0 

54 HX*HX+AI I»31)*A(I »33)/A(I ,39) 

550 WX=WX+AI 1,33) 

1001 IF (NF) 1002*1003.1002 

1002 DO 551 1=1. NF 

55 HF=HF+A! I.32)*AI I*34)/A( I ,40) 

551 WF*WF+AI 1*34) 

1003 IF ( NO ) 1004*1005.1004 

1004 DO 42 1=1 *N0 

ACX=ACX+A( I .35 )*A( I ,33 ) /A ( I ,39) 

42 AMX=AMX+A(I.33)/A( 1,39) 

ACX=ACX/WX 

AMX=WX/AMX 

1005 IF C NF ) 1006.1007.1006 

1006 DO 43 1=1, NF 

ACF*ACF+A( 1 .36) *A( I *34) /At I *40) 

43 AMF=AMF+A( 1*34) /A ( I *40) 

ACF=ACF/WF 

AMF=WF/AMF 

1007 IF (WX) 1020.1021*1020 

1020 HX=HX/WX 

1021 IF IWF) 1022.1023*1022 

1022 HF =HF/WF 

1023 DO 60 1=1 »N0 
IF(A<I*35))60*71*60 

60 RHOX=RHOX+A (I,33)/A(I*35) 
RHOX=WX/RHOX 

73 DO 61 I-l.NF 

IF I A ( I *36) >61*71*61 

61 RHOF=RHOF+A ( I , 34 ) /A ( I , 36 ) 
RHOF=WF/RHOF 

GO TO 74 

71 RHOX » 0.0 

72 RHOF * 0.0 

74 IF (NO) 1008,1009*1008 

1008 DO 57 1=1 »NE 
DO 56 J*Z»NO 

56 BOX 1 1 ) *80X < I )+A< I . J )*A ( J, 33 ) /AI J *39 ) 

57 BOX ( I ) “BOX ( I ) /WX 

1009 IF (NF) ■1010.1011.1010 

1010 DO 59 1*1. NE 


0959 

0960 

0961 

0962 

0963 

0964 

0965 

0966 

0967 

0968 

0969 

0970 

0971 

0972 

0973 

0974 

0975 

0976 

0977 

0978 

0979 

0980 

0981 

0982 

0983 

0984 

0985 

0986 
0967 

0988 

0989 

0990 

0991 

0992 

0993 

0994 

0995 

0996 

0997 

0998 

0999 

1000 
1001 
1002 

1003 

1004 

1005 

1006 

1007 

1008 

1009 

1010 
1011 
1012 

1013 

1014 

1015 

1016 

1017 

1018 



96 


DO 58 J= 1 »NF 

58 BOF(I )=80F< I ) +A < I . J+15 > «A ( J ♦ 34 ) /A{ J . 40 ) 

59 B0F(I)=B0F<n/WF 
1011 DO 62 1=1 »N£ 

IF(A( 1 ,381 163,62,64 
64 VXPLS=VXPLS+80XU )*A(1 ,38) 

67 VFPLS=VFPLS+BOF<I >*A(I ,38) 

GO TO 62 

63 VXM IN=VXMIN+B0X f I )*A( I *38) 

66 VFMIN=VFMIN+BOF(I >*A( 1,38) 

62 CONTINUE 

IF IWX) 1030*1031,1030 

1030 DO 40 I»l»NO 

40 A(I»33)=A(I,33)/WX 

1031 IF IWF) 1040,1041,1040 

1040 DO 1041 1= 1 »NF 

1041 AU »34)=A(I ,3*)/WF 
C 

C SAVE ELEMENT ARRAY FOR CORE 4 
C 

DO 2000 1= 1,15 
2000 TELMT(I) = ELMTU) 

L=NE 

TOTAL = MODF ( TOTAL, 1,0) 

IF(TOTAL)1142, 1143, 1142 

1142 KD=1 
RETURN 

1143 KD=0 
RETURN 


1019 

1020 
1021 
1022 

1023 

1024 

1025 

1026 

1027 

1028 

1029 

1030 
1031.. 

1032 

1033*- 

1034 

1035 

1036 

1037 

1038 - 

1039. * 


1040 

1041 

1042 

1043 

1044 

1045 

1046 

1047 







97 


SUBROUTINE CORE2 
COMMON C 

EQUIVALENCE (6(1), Cl 1 1 1 » <G<420), C<420)> 

EQUIVALENCE (ANSUtt C(421>)» (ANS(454), C(874)) 

EQUIVALENCE (HSUM, C(424)>» (SSUM, C(425)l 

EQUIVALENCE (WTMOL, C/426))* (CP, CI427)) 

EQUIVALENCE ( DLMPT , C(428))» ( DLMTP » CI429)) 

EQUIVALENCE (GAMMA* C(430)>, (ARATIO* C(431)) 

EQUIVALENCE (VMACH, C<43 2)>, /SP IMP, C/433)) 

EQUIVALENCE (VACI, C«434)l* <CF, C1436)) 

EQUIVALENCE IRHOI* C(437))» (RHOVAC, C(438M 

EQUIVALENCE (RHO* C(439) ) 

EQUIVALENCE IT PI, C(440)>» (PI I, CI441M 

EQUIVALENCE (EPPI* C(442))» (AW PI, C(443>) 

EQUIVALENCE (T ETA, C<445)> 

EQUIVALENCE (ETA It C/446))* /EP ETA, C/447)) 

EQUIVALENCE (AW ETA, C(448))» (TSI6, CI4501) 

EQUIVALENCE (SIG It - C(451))» (EP SIG, C(4S2>) 

EQUIVALENCE (AW SIG, Ct453)J 

EQUIVALENCE fANSLAB(l), C(875M* ( ANSLA8 ( 454 ) , C/13Z8I) 
EQUIVALENCE (PORM(l), C(1329))» (FORM(15>, C ( 1343 ) ) 

EQUIVALENCE (MFORM(l), C(1329>>, (MFORMt 15 ) , C( 1343) ) 

EQUIVALENCE (ELMT(l), C(1344)), IELMTI15), C(1358)l 

EQUIVALENCE (LLMT(l), C(1344)), ( LLMT ( 15 ) , C(1358)) 

EQUIVALENCE (DATA(l) , CU359)), (OATAI23), C( 1381 > > 

EQUIVALENCE (MDATA(l), C(1359>), (MOATAI23), CU381)) 

EQUIVALENCE /EN/1), C/1382)), (EN/90), Ctl 471)) 

EQUIVALENCE (lSYS. C(1472))t (JEAN, C(1473)) 

EQUIVALENCE (ACX, C C 1474) > • ( ACF , C ( 14731 ) 

EQUIVALENCE ( AMX , C(1476)>, (AMF, C(1477)) 

EQUIVALENCE (RHOX, C(1478)), (RHOF, C(l479)> 

EQUIVALENCE (COEFX(l), C(1480l), (COEFX(20), C(1499)) 

EQUIVALENCE ( OX ( 1 ) • C( 1500)>, (OX(20)» CI1519)) 

EQUIVALENCE / FORMLA ( 2 ) # C(2520)), (FORMLA / 18 ) > C/1537)) 

EQUIVALENCE (MMLA(l), C11520I), (MMLAI18), C l 1 537 ) ) 
EQUIVALENCE (SYSTM(l), 0(1541)), (SYSTM(15), C(l*55|) 

EQUIVALENCE ( MTSYSU > » C ( 1541 ) > , (MTSYS(15), Cl 1555 > ) 

EQUIVALENCE (OF, C(1556))» (FPCT, C(1557)) 
EQUIVALENCE ( EQRAT , C 1 1 558 > ) 

EQUIVALENCE (KODE, C(1559))» (KASE, C(1560)) 

EQUIVALENCE /KONT, C/1561)), (NF, CI1562)) 

EQUIVALENCE (NO, C(1563)), (NE, CI15641) 

EQUIVALENCE (NOEQ, C( 1565 ) ) 

EQUIVALENCE ( BOX ( 1 ) » C(1771))» <80X(15)» C C 1 785 ) ) 

EQUIVALENCE (80F(1)» C(1786)/» IBOF/15), C(1800)I 

EQUIVALENCE (NX, C(1801»), (HF, C 1 1 8 0 2 ) ) 

EQUIVALENCE (VXPLS, C(1803)l, (VXMIN, C(1804)) 

EQUIVALENCE (VFPLS* CJ1805M, (VFMIN, C 1 1806 > > 

EQUIVALENCE (EN LNU), C(1861)), (EN LNI90), C 1 1 950 ) ) 

EQUIVALENCE (DEL Nil), CI1951)), (DEL N(90)» C(2040)l 

EQUIVALENCE (H0(1)» CI2041)), IHOI90), C 1 2 1 30 ) ) 

EQUIVALENCE 15(1/, C(21311lt /S(90), C/2220)) 

EQUIVALENCE I MX 1 1 ) , Cl 2221 > » • I MX < 20 ) * C/2240)) 

EQUIVALENCE (XII), CI2221M, I X 1 20 ) * C/2240)) 

EQUIVALENCE ( DELTA ( 1 ) , C(2241))» (DELTA(20)» CI2260)) 

EQUIVALENCE (80(1), C(2261)>» (80(15), C ( 2 275 ) ) 

EQUIVALENCE (PO, Cl 2276 ) ) , (HSUBO, CC2277H 

EQUIVALENCE (SO, C(2278))» (T LN» CI2279U 

EQUIVALENCE ITt C(2280}>t (AAY L Nt C(22B1>) 


1048 

1049 

1050 

1051 

1052 

1053 

1054 

1055 

1056 

1057 

1058 

1059 

1060 
1061 
1062 

1063 

1064 

1065 

1066 

1067 

1068 

1069 

1070 

1071 

1072 

1073 

1074 
2075 

1076 

1077 

1078 

1079 

1080 
1081 
1082 

1083 

1084 

1085 

1086 

1087 

1088 

1089 

1090 

1091 

1092 

1093 

1094 

1095 

1096 

1097 

1098 

1099 

1100 
1101 
1102 

1103 

1104 

1105 

1106 
1107 




GO TO *31 
565 T=TC 
P0=0,0 
T LN-LOGF(T) 

C 

C START CALCULATION FOR NEW OVERALL COMPOSITION 
C 

A31 I ADO*! 

IF { IFROZ) 1565*379.1432 
1565 IF (IUSE) 1432.1432*433 
1432 00 432 K»1,N 
EN(K)«0.0 
EN LNIK)*0.0 

432 DEL NIKIaO.O 
AAY LN=5.0 

433 SENSE LIGHT 0 

IF 1 1 PROb-2 ) 435.445.434 

434 IF (IPROB-4) 455.465.379 

435 IF 1 1 ADD-1 ) 379.436.441 

436 SENSE LIGHT 1 

437 T LN*TC LN 
I TROT *3 

438 IF (PCPIIADDn 231.231.439 

439 SENSE LIGHT 4 
PO=PC/PCPI IADDJ 
GO TO 13 

441 IF ( t ADD-25 ) 438,438.231 
445 IF { I ADD-1 ) 379.447,441 
447 SENSE LIGHT 2 
GO TO 437 

455 IF ( I ADD-25 ) 459.459.231 

459 IF (PCPIIADD)) 231.231.460 

460 TaPCPIIAODl 

T LN = LOGFIT) 

GO TO 473 

465 IF ( I ADD-25 ) 469,469.231 

469 IF (PCP(IADD)I 231,231.470 

470 POaPCPI IADD) 

473 SENSE LIGHT 2 

SENSE LIGHT 4 
C 

C BEGIN CALCULATIONS FOR CURRENT POINT 
C 

13 PO LNsLOGFIPO) 

C 

C CHECK TEMPERATURE RANGE OF THERMODYNAMIC DATA 
C 

IF (IPR08-2) 17.17.19 
17 TaEXPFIT LN) 

19 IF (C0EFTI7.D-T) 21.27.27 
21 IF ICOEFTI7.11-5000.0I 23.31,231 
23 DO 1123 K = 1 ,15 
DO 1123 J = 1,90 
1123 COEFT I K , J) *COEFTl I K* J I 
SENSE LIGHT 4 
GO TO 19 

25 DO 1125 K = 1.15 
DO 1125 J = 1.90 
1125 COEFT (K»J)=C0EFT2IK»J) 

SENSE LIGHT 4 


1168 

1169 

1170 

1171 

1172 

1173 

1174 

1175 

1176 

1177 

1178 

1179 

1180 
118 1 
1182 

1183 

1184 

1185 

1186 

1187 

1188 

1189 

1190 

1191 

1192 

1193 

1194 

1195 

1196 

1197 

1198 

1199 

1200 
1201 
1202 

1203 

1204 

1205 

1206 

1207 

1208 

1209 

1210 
1211 
1212 

1213 

1214 

1215 

1216 

1217 

1218 

1219 

1220 
1221 
1222 

1223 

1224 

1225 

1226 
1227 


GO TO 19 

27 IF (T-C0EFTI6.1 ) ) 29,37,37 
29 IF (300.0-C0EFTI6.1)) 25,31.231 
31 IF (SENSE LIGHT 4) 38.305 

ELIMINATE THOSE SPECIES WHICH DO NOT HAVE DATA IN THIS INTERVAL 

37 IF (SENSE LI6HT 4 I 38,142 

38 SENSE LIGHT 4 
DO 40 J = 1»N 

IF (COEFTIS.Jn 40 ♦ 39 » 4 

39 CALL BYPASS (J.2) 

EN LN ( J ) =0.0 

EN ( J 1 =0.0 

40 CONTINUE 

BEGIN ITERATION FOR COMPOSITION 


1228 

1229 

1230 

1231 

1232 

1233 

1234 

1235 

1236 

1237 

1238 

1239 

1240 

1241 

1242 

1243 

1244 

1245 


42 

IQbIO 

1246 


101=101 

1247 


102=102 

1248 


103=103 

1249 


I TNUMB=30 

1250 

43 

DO 48 Jal.M 

1251 


CALL BYPASS (J.l) 

1252 


IF < I PROD-2) 48.45,48 

1253 

45 

IF (EN LN(J)+SI2E-P0 LN) 46,46.47 

1254 

46 

EN 1 J ) aO.O 

1255 


GO TO 48 

1256 

47 

EN( J)=£XPF(EN LN( J ) > 

1257 

48 

CONTINUE 

1258 


IF ( I PROB-2 ) 49.49,51 

1259 

49 

T»£XPF(T LN) 

1260 

51 

AAYaEXPFtAAY LN) 

1261 

1262 


CALCULATE HEAT CAPACITY. ENTHALPY AND ENTROPY 

1263 

1264 


IF!XT»3 

1265 


IF (SENSE LIGHT 2) 52.55 

1266 

52 

SENSE LIGHT 2 

1267 


IF (SENSE LIGHT 4) 53.55 

1268 

53 

SENSE LIGHT 4 

1269 


IFIXT-1 

1270 


IF ( ITNUM8-30) 55.54,55 

1271 

54 

I FI XT=2 

1272 

55 

CPSUM=0.0 

1273 


DO 60 J-l.N 

1274 


CALL BYPASS (J.l) 

IF ( I PROD-2 ) 60.56,60 
56 IF ( I FI XT-2 ) 59,58.57 


1275 

1276 

1277 


57 CP SUM a CPSUM+ ( ( ( (COEFT ( 12 ♦ J ) *T+CO£FT ( 11 . J » )*T+COEFT < 10. JI)*T+COEFT t 1278 

19»Jn#T+COEFT<8»jn*EN{J> 1279 

58 HO ( J ) = ( I I( COEFT ( 12* J! /5»0 )*T+COEFT (11,J)/4<0)*T +COEFT (10,J)/3.0) # T 1280 

1+COEFT (9.Jl/2*0)'*T +COEFT (13. J) /T+COEFT ( 8 , J 5 1281 

59 S(J)a( ( < (COEFT(12»J)/6.0 ) *T+CO£FT U 1 , J ) /3 .0 ) *T+COEFT ( 10. J) /2 .0 1 *T 1282 

1+C0EFTI9.J) )*T+C0EFT<8»J)*T LN+COEFT ( 14 . J )-EN LN<J> 1283 

60 CONTINUE 1284 

1285 

1286 
1287 


CONSTRUCT MATRIX AND SOLVE THE EQUATIONS 



c 

c 

c 


CALL MATRIX 
IF (SENSE LIGHT 4) 
61 SENSE LIGHT A 
CALL GAUSS 
IF (IDF8UGI 910*80' 
910 DO 911 I * 1 * I MA T 


61*171 


910 


911 WRITE OUTPUT TAPE 6 .912 . <G< I *K> ,K=1 . KMAT ) *0EL TA ( I) 
WRITE OUTPUT TAPE 6»912»<X< I) »1«1» IMAT) 

912 FORMAT (8E14.6) 

80 IF (IDID-IMAT) 81.85.81 

81 IF (SIZE-18. 5) 83.83.311 
83 S!ZE*27.5 

GO TO A3 

85 ITNUMB=ITNUMB-1 
DO 87 K*=l , I MAT 

IF (ABSF(OELTA<K) I-0.5E-4) 87.87,315 
87 CONTINUE 


OBTAIN CORRECTIONS TO THE ESTIMATES 


0 LN T=XII02> 

91 IF UFIXT-2) 93.95.379 
93 0 LN T»0.0 

95 00 101 J=1,M 

CALL BYPASS (J.1I 

IF (IPROD-2) 96,97.96 

96 DEL N < J 1=0.0 
GO TO 10,1 

97 OEL N ( J ) »H0 ( J ) *0 LN T-H0(J)+S(J) 

00 99 K»1»L* 

99 OEL N<J]«OEL N ( J)+A< K , J )»X( K ) 

101 CONTINUE 

IF fL-70) 103.109,109 

103 J*M1 

00 107 K=L1 * 10 

104 CALL BYPASS (J.l) 

IF ( I PROD-2 ) 105,106,105 
. 105 OEL NU>=0.0 
J=J+1 


GO TO 104 

106 OEL N(J}sX<K> 

J=>J+1 

107 CONTINUE 

109 AMBDA 3 1 .0 
AMBDA1-1.0 

IF ( XABSF ( LNT l-XABSF ( MX I 1 Q1 ) ) ) 501,913.913 
501 SUM s ABSF ( X ( 101 ) ) 

GO TO 915 

913 SUM=ABSF(D LN T! 

915 DO 917 J=1,M 

IF I EN ( J > ) 917,1915.916 

916 SUM=MAX IF ( DEL N(J).SUM) 

GO TO 917 

1915 IF (EN LN ( J J ) 917,917.1917 
1917 SUM1=ABSF( |P0 LN-9.212-EN LNIJIJ/DEL N(J>) 
AMBDA 1 =MIN1F( SUM1 ♦ AMBDA1 ) 

917 CONTINUE 

IF (SUM-2.01 1110.1110,110 

110 AMBDA=2. O/SUM 

1110 AM8DA-MINIF(AM80A,AM80A1I 


1290 

1291 

1292 
129 3 

1294 

1295 

1296 

1297 

1298 

1299 

1300 

1301 

1302 

1303 

1304 

1305 

1306 

1307 

1308 

1309 

1310 

1311 

1312 

1313 

1314 

1315 

1316 

1317 

1318 

1319 

1320 

1321 

1322 

1323 

1324 

1325 

1326 

1327 

1328 

1329 

1330 

1331 

1333— sOjlf 

1334 

1335 

1336 

1337 

1338 

1339 

1340 
134W- 

1342 

1343 

1344 

1345 

1346 

1347 




920 IF ( I DEBUG I 921,111,921 

921 WRITE OUTPUT TAPE 6.923, T.P.AAY. AMBDA, HCOEFT(K.J) ,K=1,3 I , 
1 EN ( J ) »EN LNUI.DEL N( j),HO(J),SU).J*l,N) 

923 FORMAT (4E25.8/(1X,3A6,5E15.6») 

C 

c APPLY CORRECTIONS TO THE ESTIMATES 
C 

111 DO 113 J=1,M 

113 EN LN ( J > =EN LN( J)+AMBDA*DEL N(J) 

IF (ICOND-2I 115, 121.375 
115 DO 117 J«=M1 »N ' 

117 EN< J)=FN( J)+AMBDA*DEL N(J) 

121 T LN*T LN +AMBDA#D LN T 
AAY LN=A*Y LN- AMBDA*X( 1011 
IF (SENSE SWITCH 6) 122,124 

122 IF (IDEBUG) 1122,123,1122 
1122 IDEBUG=0 

GO TO 231 

123 IDEBUG=! 

C 

C TEST FOR CONVERGENCE OF ITERATION 
C 

124 IF UTNUMB) 125,132,125 

125 IF ( AMRDA-l . 0 ) 43,1124,231 
1124 P=0.0 

DO 1126 J»l, M 
1126 P=P+EXPF ( EN LN ( J) ) 

IF ( ABSF ( ( P0~P ) /PO ) -0.5E-5 ) 126.126.43 

126 SUM=P 

IF 1 ICOND-2 )127,129,3?5 

127 DO 128 J*M1»N 

128 SUM«=SUM+ABSF( EN ( J) ) 

129 DO 130 J»1,N 

IF (J-M) 1129,1129,1130 

1129 IF ( ABSF (EN ( J )*DEL N( J) /SUM)-0.5E-5> 130,130.43 

1130 IF ( ABSF ( DEL N( J) /SUM1-0.5E-5 ) 130.130,43 

130 CONTINUE 

132 IF (SENSE LIGHT 4) 133,133 

133 GO TO 13 
C 

C ELIMINATE THOSE SPECIES WITH NO DATA AT THIS TEMPERATURE, ADD 
C THOSE WITH DAfA AT THIS TEMPERATURE 

142 00 170 J=1,N 

IF ( MCOEFT < 1 , JJ-MT ) 170,500,170 
500 IF f COFFT (5 » J) + 100.0-T) 28' ,143,143 

143 IF (T-COEFT (4»J)+100»0) 295,144,144 
285 IF (5000.0-COEFT(5,J) ) 144,144,301 
295 IF ( COE FT ( 4. J) -300.0) 144,144,301 

144 IF (J-M) 145,145,146 

145 CALL BYPASS (J.3) 

60 TO 170 

301 CALL BYPASS (JtZ) 

EN( J)»0.0 
EN LN ( J ) =0. 0 
DEL N(J)»0.0 
GO TO 170 

146 IF ( EN ( J ) ) 147.148,170 

147 EN< J) “0.0 
OEL N ( J ) =0. 0 
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1349 

1350 

1351 

1352 

1353 

1354 

1355 

1356 

1357 

1358 

1359 

1360 

1361 

1362 

1363 

1364 

1365 
2366 

1367 

1368 

1369 

1370 

1371 


1374~- /2J-S 


1375 

1376 

1377 

1378 

1379 

1380 

1381 

1382 

1383 

1384 

1385 

1386 

1387 

1388 

1389 

1390 

1391 

1392 

1393 

1394 

1395 

1396 

1397 

1398 

1399 

1400 

1401 

1402 

1403 

1404 

1405 

1406 

1407 


Jst ■XstlJZj 



CALL BYPASS IJ.2) 

60 TO 42 
C 

C SKIP CONDENSATION CHECK IF T IS HIGHER THAN MELTING POINT WHEN 

C TESTING SOLID. OR LOWER THAN MELTING POINT WHEN TESTING LIQUID 

C 

148 IF ICOEFT (4» J)'*COEFT( 5*J-1 > I 150»149.150 

149 IF (COEFT f 4 » J )“T ) 153*153.170 

150 IF ICOEFT I 5 * J I -COEFT ( 4 * J+l ) I 153.151.153 

151 IF (T-C0EFTI5.JI J 153.153.170 
C 

C CHECK FOR CONDENSATION 

C IF MORE THAN ONE CONDENSED PHASE OF ANY SPECIES CAN EXIST THE 

C PHASE STABLE AT THE HIGHER TEMPERATURE MUST PRECEED THAT STABLE AT 

C THE LOWER TEMPERATURE ON MASTER TAPE 

C 

153 DO 155 K-2.3 
SUM-COEFTIK.JI 
DO 154 1=1.6 
TMPoARSF 130. SUM) 

8 SUM=ALSF (6000000. SUM ) 

IF ( MTMP-M 8 LK ) 154,156.154 

154 CONTINUE 

155 CONTINUE 
K=3 

1=5 

GO TO 159 

156 1=1-2 

IF (I) 157.158,159 

157 K=2 
1=5 

GO TO 159 

158 K=2 
1*6 

159 FORM I 2 ) *COEFT I 2 » J I 
FORM 1 3 ) =CO£FT ( 3 , J) 

1 = 6*1 

JJ=42-I 
I = ! 

JJnJj 

SUM = FORM IK I 
0 SUM « ARSF(JJ.SUM) 

MJJsJJ— 6 
TMLJ = FORM(K) 

TMLJ = LRSFIMJJ.TMLJI 
MJJ«36-I 

8 SUM1«LLSF(MJJ.GAS> 

8 TEMPsLRSFIJJ.SUMl ) 

MJJ»42-I 

B FORM! K )=LLSF(MJJ»SUM) 

DO 160 K=1»M 

IF IMF0RMI2)-MC0EFTI2»K1I 160.1160.160 
1160 IF I MF0RMI3 1-MCOEFT (3 *KI ) 160.162.160 

160 CONTINUE 

CALL BYPASS IJ.3) 

GO TO 170 

162 CALL BYPASS (K.l) 

IF { I PROD— 2 ) 170.163.17 

163 HOI J)»t ( I(COEFTI12,J)/5.O)*T+COEFT(ll.JJ/4.O)*T+COEFT(?0.J)/3.0I*T 
1+C0EFTI9.J1/2.0 J*T +COEFT I 13 . J) /T+COEFT 18 . Ji 


1408 

1409 

1410 

1411 

1412 

1413 

1414 

1415 

1416 

1417 

1418 

1419 

1420 

1421 

1422 

1423 

1424 

1425 

1426 

1427 

1428 

1429 

1430 

1431 

1432 

1433 

1434 

1435 

1436 

1437 

1438 

1439 

1440 

1441 

1442 

1443 

1444 

1445 

1446 

1447 

1448 

1449 

1450 

1451 

1452 

1453 

1454 

1455 

1456 

1457 

1458 

1459 

1460 

1461 

1462 

1463 

1464 

1465 

1466 

1467 


StJ)«I(( (COEFT! 12. JI/4.0 )*T+COEFT 111 » J > /3«0>*T+COEFT ( 10 . J) /2.0)*T 
1+C0EFTI9.J) )*T +COEFTI 8 . J) *T LN+COEFT 1 14, U) 

IF (HOI JI-SIJI-HOIKI+SIK) ) 164.164.170 
164 CALL BYPASS tJ.3I 
ENI J)=0.0 
GO TO 42 

170 CONTINUE 
C 

C IF COMPOSITION HAS BEEN CORRECTLY DETERMINED CALCULATE THE 
C EQUILIBRIUM PROPERTIES. OTHERWISE CONTINUE ITERATION 
C 

IF! SENSE LIGHT 4) 1170.1172 

1170 SENSE LI6HT 4 
GO TO 42 

1172 IF IITNUMB) 42.971.42 
971 WRITE OUTPUT TAPE 6.973, IADD 

973 FORMAT (70HL30 ITERATIONS DIO NOT SATISFY CONVERGENCE REQUIREMENTS 
1 FOR THE POINT 15) 

GO TO 42 
C 

C CALCULATE EQUILIBRIUM PROPERTIES 
C 

171 DO 1171 I = 1.454 

1171 ANSII! = ANSLA8II > 

WTMOL-AAY/P 

HSUM=6! IQ2 » 1Q1) *T/AAY 

SSUM-0.0 

DO 183 J»1.N 
CALL BYPASS IJ.l) 

IF ( I PROD— 2 ) 183.181.183 
181 SSUM»SSUM+S(J>*EN(J) 

183 CONTINUE 
1183 SSUM«SSUM/AAY 
IMAT= IMAT-1 
CALL GAUSS 

IF I IDID-IMAT ) 172.174,172 

172 CPR-CPSUM/AAY 
GAMMA-CPK/ I CPR- U . 0 /WTMOL 1 J 
DLMTP-0.0 

DLMPT =0*0 
GO TO 185 

174 DLMTP«XIIQ1) 

IF I A8SF (DLMTP )-27. 5 ) 1174.1174.172 

1174 CPR=G( 102. 102 ) 

DO 175 J-1.1Q1 

175 CPR«CPR-G(IQ2.J)*X( J) 

CPR*CPR/AAY 

1175 IMAT=IMAT-1 
CALL GAUSS 
OLMPT-O.O 

DO 179 J»1.L 

179 DLMPT=DLMPT+GUQ1.J)*X< J) 

DLMPT- I P-DLMPT ) /DLMPT 

IF (DLMPT-27.5) 180.180.172 

180 GAMMA-1. 0/(1. 0+DLMPT-ni.0-DLMTP)**2)/(CPR*WTMOL)I 
IF (GAMMA) 172.172.185 

185 IF { IPROB-2 ) 186.186.207 

186 IF 1 1 ADO-2) 187.191.197 

187 WTMOLC-WTMOL 
TC*T 
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pc-p 

HC-HSUM 

SO-SSUM 

186 T PI— DLMTP/(WTMOL*CPR) 

T ETA- 1 000* 0/(CPR*TC* 1.98726) 

T SI6— (1.0-DLMTP)/(WTMOL*CPR> 

GO TO 207 
C 

C CHECK FOR CONVERGENCE AT THROAT 
C 

191 DHSTARbHC-HSUM - <GAMMA*T/12«0*WTMOL) ) 

IF ■ ( AB5F ( DHST AR / 1 HC-HSUM ) I-0.4E-4) 197*197*192 

192 IF{1TR0TI 193 *297,193 

193 PCP(2)»PCP<2)/< l.O*2.0*DHSTAR*WTMOL/CT*(GAMMA+1.0) ) ) 
PO=PC/PCPUAOO) 

I TROT* I TROT-1 

IF (1 DEBUG) 929*194.929 

929 WRITE OUTPUT TAPE 6*923. OHSTAR,HC»H$UM.PCP( IADD) 

194 SENSE LIGHT 4 
GO TO 13 

C 

C CALCULATE PERFORMANCE PARAMETERS 
C 

197 SP IMP“294.98*SQRTF( (HC-HSUM) #1 . 98726E-3 I 
RHOI -RHO*SP IMP 
SUM“T/ ( 2 »0*( HC-HSUM) ) 

PI I “SUM* ( WTMOL-WTMOLC ] / ( WTMOL*WTMOLC ) 

ETA I «SUM*(TC“T)/(TC*T*1. 96726 1*1000.0 
SIG I*SUM/WTMOL 

T PI* Cl ( WTMOLC-WTMOL > /WTMOLC ) -DLMTP) / (WTMOL*CPR ) 

T ETA-1000. 0/’<CPR*TC*1.98726) 

T SIG— <1.0-DLMTP)/(WTM0L*CPR> 

AW“ ( 86 .4979*7 )/(AAY*14«696006*SP IMP) 

AW PI— H1.0-t>LMTP)/(WTMOLC*CPRI + 1.0/GAMMAfPI I) 

AW ET A“T ETA*( 1.0-DLMTP )-ETA I 
AW SIG-l.O/GAMMA-SIG I 
IF CIADO-2) 203*201.203 
201 AWT=AW 

CSTAR-32 . 174*PC*14. 696006*AWT 

CSTRPI-l.O+AW PI 

STR ETA«AW ETA 

STR SIG“0.0 

AWT PI-AW PI 

AWT ETA-AW ETA 

aw sro»o.o 

203 CF-32.174*SP IMP/CSTAR 
ARATIO-AW/AWT 

VACJ-SP IMP+P*14.696006*AW 
RHOVAC*RHO*VACI 

VMACH-SP IMP/SORTF < 86.4579*GAMMA*T/WTMOL) 

EP PI *>AW PI— AWT PI 
EP ETA-AW ETA— AWT ETA 
EP SIG-AW SIG 
207 HSUM-HSUM*1. 98726 
SSUM»SSUM*1. 98726 
CP»CPR*1 .98726 
C 

C OBTAIN COMPOSITION IN MOLE FRACTIONS 
C 

SUM-P 


1528 

1929 

1530 

1531 

1532 

1533 

1534 

1535 

1536 

1537 

1538 

1539 

1540 

1541 

1542 

1543 

1544 

1545 

1546 

1547 
1546 

1549 

1550 

1551 

1552 

1553 

1554 

1555 

1556 

1557 

1558 

1559 

1560 

1561 

1562 

1563 

1564 

1565 

1566 

1567 

1566 

1569 

1570 

1571 

1572 

1573 

1574 

1575 

1576 

1577 

1578 
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C 

C 

C 


IF IICOND-2) 209*213.375 
209 DO 211 J-M1.N 
211 SUM-SUM+ENC J) 

213 DO 215 J»1*N 
215 AN5 (4#J+34 ) "EHtJi /SUM 
IF IIPROB-2) 217,217*22 

217 ANS ( 1 1 *PCP 1 1 ADD ) 

218 IF ( I ADD-2 1 220*219*219 

219 ANS (151 -CSTAR 
ANSC 24 >“CSTRPI 
ANS (29 1 “STR ETA 
ANS (341 -STR SIG 

220 ANSC 2 1 *P 
ANSm«T 
K»34+4*N 

PRINT OUT THE CALCULATED ANSWERS 


IF (IDE0UG1 1221,222*1221 
1221 WRITE OUTPUT TAPE 6 » 221 ♦ < ANS M > . 1*1 *K 1 

221 FORMAT ( 1H ////5E20.8/5E20.8/5E20*8/4E20.8/5E20.8/3E20»6/5E20.8/// 
1 ( 3 ( 7 X * 3A6 * F8 . 5 1 1 1 

GO TO 2223 

222 WRITE TAPE 3, (ANSU1* 1-1*454) 

NO EQaNO EQ+1 

2223 IF (IADD-2) 223*225*225 

223 IF CIPROB-2) 224,1224.1223 

224 IF ( IFROZ) 1223*1224*1224 

1224 PCP ( 2 ) 3 1 (GAMMA+1.0 1 /2*0 )** ( GAMMA/ (GAMMA— 1.0 1 1 
T LN-T LN+LOGF(2.0/(6AMMA*1.0)I 

1223 DO 1225 I - 1*454 

1225 ANSLAB(I) * ANS(I) 

22 5 IADD- JADD+1 
GO TO 433 

C 

231 IF (NO EO) 378*378.1231 
1231 IF (IFR02I 232.379.235 

232 IF (IADD-2) 378,233.378 

233 IF ( I DEBUG) 373.234.378 

234 CALL C0RS4 

IF (KORE) 1234.1.1234 
1234 RETURN 

235 IF (IPROB-2) 237.237.239 
237 CALL CORE3 

RETURN 

239 WRITE TAPE 3»(G(I>» 1*1.8044) 

CALL CORES 
RETURN 
C 

C ERROR PRINT OUT 
C 

305 WRITE OUTPUT TAPE 6.306.T.IADD 

306 FORMAT ( 17HLTHE TEMPERATURE-E12.4.34H K, IS OUT OF RANGE FOR THE P 
10INT 15) 

IF (6000.0-T) 309.307.307 

307 IF (T-200.0) 1309,306*308 

308 GO TO 142 

1309 IF (1 ADD-1 > 309*1310*309 

1310 IF (IPROB-2) 1311,309*309 

1311 IF (ITEST-N) 1312,1312,309 
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1312 SUnWUTSfl!" 

IF ( I PROD-2 > 1315*1313 *1313 

1313 CONTINUE 
60 TO 309 

1315 ITEST-J+1 

CALL BYPASS! J»3) 

60 TO 555 
309 IADD=25 

IF (SENSE LIGHT A) 42*42 

311 WRITE OUTPUT TAPE 6»312»IMAT* IOID 

312 FORMAT ( /15H1TRIED TO SOLVE I3*22H EQUATIONS* ELIMINATED 13) 
60 TO 375 

315 WRITE OUTPUT TAPE 6*316* 

316 FORMAT < /47H1RESI DUALS FROM SUBROUTINE 6AUSS EXCEED 0.5E-4) 
375 IF (IDEBUG) 231*377*231 

377 I0EBUG=1 

IF (IPROB-3) 1377*555*555 
1377 PC=PC*14. 696006 
60 TO 555 

378 WRITE TAPE 3 * (6 ( I ) * ! -1 *8044 > 

BACKSPACE 3 

RETURN 
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C 


c 

c 

c 


379 REWIND A 

PAUSE 77777 
SUBROUTINE GAUSS 


SUBROUTINE GAUSS SOLVES ANY LINEAR SET OF UP TO TWENTY EQUATIONS* 
BY ITERATION IF NECESSARY 

FORTRAN MONITOR UNDER NORMAL OPERATING CONDITIONS WILL TAKE CARE 
OF OVER-UNDER FLOW 


COMMON C 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

Equivalence 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 


ret i ) * 

(ANSI 1) • 

IHSUM, 

IWTMOL* 

( DLMPT* 
(GAMMA* 
IVMACH, 
(VACI * 
(RHOI , 
(RHO* 

IT PI, 
(EP PI. 
IT ETA, 
(ETA I* 
(AW ETA, 
(SIG I, 
(AW SIG* 


cm >, 

C (421 ) ) » 
Cl A2A} ) 
C (426) > 
C(428) } 
C (430 ) ) 
C(432) > 
C(434) ) 
Cl 437) ) 
C(439) J 
C ( 440 ) ) 
C ( 442 ) ) 
C ( 445 ) ) 
C( 446) > 
C ( 448 > > 
C (451 > ). 
CI453) ) 


(6(420), 
(ANSI 454) , 
(SSUM, 
(CP, 

( DLMTP, 
(ARATIO, 
(SP IMP, 
(CF, 

IRHOVAC, 

(PI I, 
(AW PI, 

(EP ETA, 
(T SIG, 
(EP SIG, 


C(420) ) 
C( 874) ) 
CIA25}} 
C(427) ) 
C(429) ) 
C(431) ) 
C(433) ) 
C< 436) ) 
C I 438) ) 


C(447) ) 
C< 450) ) 
CI452 > I 


( ANSLA8 ( 1 ) , C ( 875 ) ) , 
(FORM(l), C ( 1329 ) ) i 
(ELMTU), C ( 1344 ) ) i 
(LLMT(l), C ( 1344 ) ) i 
(DATA(l), C( 1359) ) , 
(MOATA(l), C( 1359 ) ) ■ 


(EN(1) 

( I SYS' 

( ACX , 

( AMX , 

( RHOX , 
(COEFX(l), 

( DX ( 1 ) , 

(FORMLA(l) 

(MMLA(l), 

( PROD ( 1 ) , 
(SYSTKUJ * 
(MTSYS(l), 
(OF, C 

(EQRAT, 
(KODE, C( 

( <0N T , C 
INOt 

(NOEQ, C ( 1! 

(BOXm, 

(BOF(l), 

(HX, 

(VXPLS, 

IVFPLS, 

(EN LN ( 1 ) , 
(DEL Nil), 

(H0(1> , 

IS( 1), 
(XII), 
(DELTA! 1) , 
(BOU), 

(PO, 

(SO, 

(T» 

( AAY , 

(HC, 

(PCPI1), 
(DATUM! 1 1 , 
(PC, 

( IPROB, 

( IHS, 

( ISYM, 

( IDID, 

( IDRM, 

(L, 

IM, 

(N, 

I IQ1 » 

( IQ3, 

( IMAT, 

( I ADD , 

( ITAPE, 

( IDEBUG, 

(A(l), 

(COEFTim, 

(C0EFT2I1), 

(COEFT(l), 

(ATOM(l), 

IMATOM(l), 


C( 1382 ) ) 

C( 1472)1, 
C( 1474) ) , 
C ( 1476 ) ) 
C( 1478) ) 
C( 1480 
C( 1500) I , 
CI1520) 
C(1520)) 
C( 1538) ), 


( ANSLABI 454 ) , C(1328)> 
( FORM! 15 > , C ( 1343 ) ) 

( ELMT ( 15 ) » C ( 1358 ) ) 
(LLMT ( 15 ) , Ct 1358) I 
( DATA( 23 > , C( 1381 ) ) 
(MDATA(23), C(1381)) 


(EN(90) 

(JEAN 

(ACF, 

(AMF 

(RHOF 


C ( 1471 ) ) 

C ( 1473 ) ) 

C ( 1475 ) ) 

C( 1477 ) ) 
CI14/9) ) 

( COEFX ( 20 ) , C( 1499) ) 
(DX ( 20) , CC 1519) ) 

( FORMLA ( 18 ) * C ( 1537 ) ) 
(MMLAI18), C( 1537) ) 
(PROD( 3 ) , C( 1540) ) 


DIMENSION G(20,21), 
DIMENSION DEL N (90) , 

dimension delta! 20), 

DIMENSION COEFX ( 20) , 


C( 3692) ) 
C< 5042 > ) • 
C( 6392 ) ) , 
C(7742) ), 
C(7742)J, 

A < 15,90) , 

HO (90), 
80(15), 

DX( 20) » 


(C0EFT1 ( 1350) , C( 5041 ) ) 
(C0EFT2 (1350) , C(6391)> 
(COEFT (1350) , C (7741 ) ) 

( ATOM ( 303) , C ( 8044 > ) 
(MATOMI 303 ) » C(8044)) 


EN{90) , 
S( 90 ) , 
PCP<25), 
FORM! 15 ) 


DIMENSION C0EFT1 ( 15,90 ) . C0EFT2 ( 15*90) 
DIMENSION ELMTU5), DATA123} i DATUM(3I, 

DIMENSION BOX ( 15 ) , B0FI15), ANSI454), 

DIMENSION LLMT ( 15 ) ,MTSYS( 15 ) *MDATA{ 23 ) 
DIMENSION ANSLA8 ( 454 ) * COEFT(15»90> 

DIMENSION MATOM(lOl,3), ATOM! 101 *3) 
DIMENSION DRUM(20,21) 

B I GN0*3 77777777777 

1DID»0 

DETN-0.0 

IF(IUSE) 80,80*81 
81 IUSE1-IUSE+1 
00.1 K*1»IUSE 
XIKJ-0.0 
1 DELTA(K)-0.0 
ITERA-O 
KAPUT-1 
OSUMl-BIGNO 

SAVE MATRIX IN DRUM 
DO 82 ID«1 , I USE 


EN LN ( 90 ) 
X( 20) 
PROD ( 3 ) 


F0RMLAU6I 

SYSTMI15) 


1671 

1672 

1673 

1674 

1675 . 

1676 

1677 

1678 

1679 

1680 
1681 
1682 

1683 

1684 

1685 

1686 

1687 

1688 

1689 

1690 

1691 

1692 

1693 

1694 

1695 

1696 

1697 

1698 

1699 

1700 

1701 

1702 

1703 

1704 

1705 

1706 

1707 

1708 

1709 

1710 

1711 

1712 

1713 

1714 

1715 


C( 1541 ) J , 

(SYSTM(15) 

* C ( 1555 ) > 

1716 

C( 1541 ) ), 

(MTSYS ( 15) , 

C( 1555 ) ) 

1717 

(1556)), 

(FPCT, C ( 1557 ) ) 

1718 

C (1558 ) ) 



1719 

1559)), (KASE, C ( 1560 ) I 

1720 

(1561)), 

(NF, 

C( 1562 ) ) 

1721 

C ( 1563 ) ) , 

(NEt 

CI2S64I) 

1722 

565 )) 



1723 

C ( 1771 ) ) , 

(BOX (15), 

C( 1785) ) 

1724 

C(1786))» 

(80F ( 15 ) * 

CC 1800 > ) 

1725 

C(180l>)» 

(HF, 

C ( 1802 ) ) 

1726 

C < 1803 ) ) , 

(VXMIN, 

C( 1804 ) ) 

1727 

C ( 1805) ) , 

(VFMIN, 

C 1 2 806 ) ) 

1728 

C( 1861 ) ) , 

(EN LN (90 ) , 

C( 1950 ) > 

1729 

C(195l)), 

(DEL N(90 > » 

C ( 2040 ) ) 

1730 

C( 2041 ) ) , 

( HO 190), 

C(2130) ) 

1731 

C (2131 ) ) , 

1 S( 90 ) , 

C ( 2220 ) ) 

1732 

C ( 2221 ) ) , 

tXI20), 

C/2240)) 

1 733 

C ( 2241 ) ) , 

(D£LTA(20) , 

C(2260)> 

1734 

C ( 2261 ) ) , 

(60(15) , 

C (2275 ) ) 

1735 

C ( 2276 ) ) , 

(HSUBO, 

C (2277 ) ) 

1736 

C ( 2278 ) ) , 

(T LN, 

C (2279 ) ) 

1737 

C(2280> ) » 

(AAY LN, 

CC 2281 ) > 

1738 

C ( 2282 ) ) * 

(CPSUM, 

C(2283) ) 

1739 

C ( 2284 ) ) , 

(TC LN, 

C ( 2285 ) ) 

1740 

C ( 2286 ) ) , 

(PCP( 25 ) , 

C(2310) ) 

1741 

CI2311M, 

(DATUM! 3) , 

C( 2313 ) ) 

1742 

C ( 2314 ) ) , 

(TC, 

C(2325) I 

1743 

0(2316) ) , 

( IFIXT , 

CC2317) ) 

1744 

C ( 2318 ) ) , 

( ICOND, 

C( 2319) ) 

1745 

C( 2320) ) , 

(IPROD, 

CC 2321 ) ) 

1746 

C( 2322 ) ) , 

(LORUM, 

C(2323)> 

1747 

C( 2323) ) , 

( KDRUM, 

C (.2324 ) ) 

1748 

C( 2325 ) ) , 

(LI, 

Cl 2326) ) 

1749 

C ( 2327 ) ) • 

(Ml, 

C{2328) ) 

1750 

C (2329) ) , 

(10, 

C (2330 ) ) 

1751 

C ( 2331 ) ) , 

( IQ2 , 

C( 2332 ) ) 

1752 

C ( 2333 ) ) , 

(KMAT , 

C( 2334 ) ) 

1753 

CI2335) ) , 

{ I USE, 

C( 2335 ) ) 

1754 

C ( 2336 ) ) , 

(ITNUMB, 

C(2337 ) ) 

1755 

C( 2338 ) ) , 

(P, 

C (2339 ) ) 

1756 

C< 2340 > ) * 

( IFR02, 

C( 2341 ) ) 

1757 

C(2342) ) » 

( A ( 1350) , 

C ( 3691 ) ) 

1758 


1759 

1760 

1761 

1762 

1763 

1764 

1765 

1766 

1767 

1768 

1769 

1770 

1771 

1772 

1773 

1774 

1775 

1776 

1777 
1770 

1779 

1780 

1781 

1782 

1783 

1784 

1785 

1786 

1787 

1788 

1789 

1790 



c 

c 


c 

c 

c 

c 


BEGIN ELIMINATION OF NNTH VARIABLE 


6 DO 45 NN*1 * IUSE 
IF (NN-IUSE) 8*83*8 
83 IF(G(NN*NN1 >31*23*31 


SEARCH FOR MAXIMUM COEFFICIENT IN EACH ROW 


8 00 18 I «NN» I USE 
J=NN 

IF(G( I » J) ) 99*14*99 

99 COEFXU)*0.0 
10 J«J+1 

IF(IUSEl-J) 12*84*84 

84 IF< ABSF(G(I.JI) - A8SF (COEFX! III) 10*100*100 

100 COEFXfI)»ABSF(GiI*J)) 

60 TO 10 

12 COEFX ( I ) a ABSFICOEFXCI )/G(I*NN)I 
60 TO 18 

14 COEFX ( I ) “BIGNO 

18 CONTINUE 

19 TEMPOS IGNO 
I«0 

20 DO 22 J-NN.IUSE 

IF (COEFX(J)-TEMP) 87*22*22 
87 TEMP«COEFX( J) 

1= J 

22 CONTINUE 
IFII) 26*23*28 

23 TDlD-NN-l 
60 TO 80 

INOEX I LOCATES EQUATION TO BE USED FOR ELIMINATING THE NTH 
VARIABLE FROM THE REMAINING EQUATIONS 


INTERCHANGE EQUATIONS 1 AND NN 

28 IF(NN-I) 29,31,29 

29 00 30 J“NN * IUSE 1 
2&6<I»J> 

6(1 » J) =G(NN*J) 

30 G(NN, J)«Z 

DIVIDE NTH ROW BY NTH DIAGONAL ELEMENT AND ELIMINATE THE NTH 
VARIABLE FROM THE REMAINING EQUATIONS 


31 K = NN + 1 

00 36 J * K* IUSE1 

IF (G(NN*NN1 I 36* 23* 36 
36 G ( NN, J) s G(NN« J I / G(NN*NN) 

IF (X-IUSE1 ) 88*45*88 
88 DO 44 I = K* IUSE 
40 DO 44 J = K» I USE1 

G(I*J1 * 6U*J1 “ G ( I * NN } *G ( NN » J 1 

44 CONTINUE 

45 CONTINUE 


1791 

1792 

1793 

1794 

1795 

1796 

1797 

1798 

1799 

1800 
1801 
1802 

1803 

1804 

1805 

1806 
1807 
1608 

1809 

1810 
1811 
1612 

1813 

1814 

1815 

1816 

1817 

1818 

1819 

1820 
1821 
1822 

1823 

1824 

1825 

1826 

1827 

1828 

1829 

1830 

1831 

1832 

1833 

1834 

1835 

1836 

1837 

1838 

1839 

1840 

1841 

1842 

1843 

1844 

1845 

1846 

1847 

1848 

1849 

1850 


C BACKSOLVE FOR THE VARIABLES 
C 

991 IDID » IUSE 
K = IUSE 

47 J = K + 1 
SUM ■ 0* 

IF! IUSE - J) 51,48*48 

48 DO 50 I » J* IUSE 

50 SUM « SUM + G ( K * I ) *DX ( I ) 

51 DX(K> » G(K* IUSE1 ) - SUM 
X(X) » X I K) + OX!K) 

IF (K> 47*151*47 
151 00 90 ID * 1 » IUSE 
DO 90 JD » 1* IUSE1 
90 G( ID, JD) * DRUM! ID* JD) 

C 

C CALCULATE RESIDUALS (DELTA RI6HT HAND SIDE) 
C 

52 OSUM “ 0. 

DO 62 1 » i, iusE 
SUM » 0. 

DO 56 J = 1* IUSE 

56 SUM » SUM + G( I *J)*X! J) 

DELTA! I ) « G ( I , IUSE1 ) - SUM 
IF ( ABSF !G( I » IUSE1 ) ) - 1.0) 62* 62* 6 
60 DELTA! 1 ) * DELTA (1) / GU.IUSEl) 

62 DSUM - ABSF ( DELTA! I ) ) ♦ DSUM 

GO TO (66, 80), KAPUT 
66 IF(D$UM - DSUM1J 74*80*68 
68 KAPUT = 2 

DO 72 K * 1 * (USE 
72 X(K) = X(K) - OX(K) 

GO TO 52 

74 DSUM1 a DSUM 

ITERA « ITERA + 1 
IFIITERA - 4) 92*80,92 

92 DO 78 I = 1* IUSE 

IF ( ABSF (G( I ♦ lUSEl) ) - 1.0) 75*75*76 

75 G ( I * IUSE1 ) » DELTA! I ) 

GO TO 78 

76 G ( I * IUSE1 ) » DELTA! I ) * GfI*IUSEl) 

78 CONTINUE 

GO TO 6 
80 RETURN 


1853 

1854 

1855 

1856 

1857 

1858 

1859 

1860 
1861 
1862 

1863 

1864 

1865 
1666 

1867 

1868 

1869 

1870 

1871 

1872 

1873 

1874 

1875 

1876 

1877 

1878 

1879 

1880 
1881 
1882 

1883 

1884 

1885 

1886 

1887 

1888 

1889 

1890 

1891 

1892 

1893 

1894 

1895 



105 


SUBROUTINE MATRIX 
C 


COMMON C 


EQUIVALENCE 

<6(11, 

cun* 

IG/420), 

C(420) ) 

EQUIVALENCE 

(ANS(l) . 

C (421 ) ) » (ANS(454)» 

C( 874) ) 

EQUIVALENCE 

(HSUM» 

C (424) ) , 

( SSUM , 

CI425) ) 

EQUIVALENCE 

( WTMOL, 

CI426) ) . 

(CP, 

C( 427) ) 

EQUIVALENCE 

(DLMPT. 

CI428) ), 

(DLMTP, 

C ( 429 1 1 

EQUIVALENCE 

(GAMMA* 

C(430)J, 

(ARATIO, 

C(431) ) 

EQUIVALENCE 

( VMACH* 

C( 432 ) >, 

ISP IMP, 

C(433) ) 

EQUIVALENCE 

(VACI* 

C(434) ) , 

<CF. 

C(436) ) 

EQUIVALENCE 

( RHO I * 

C(437) ), 

I RHO VAC* 

Cl 438)) 

EQUIVALENCE 

IRHO* 

CI439) J 



EQUIVALENCE 

(T PI, 

CC440M, 

(PI I, 

C 1 441 ) > 

EQUIVALENCE 

(EP PI* 

C(442H, 

(AW PI, 

C ( 443) ) 

EQUIVALENCE 

(T ETA. 

C( 445) ) 



EQUIVALENCE 

(ETA I, 

C ( 446 ) } , 

(EP ETA, 

C( 447) ) 

EQUIVALENCE 

(AW ETA, 

C ( 448 ) ) , 

(T SIG, 

C<450> > 

EQUIVALENCE 

(SIG I, 

C(451 ) ) ♦ 

(EP SIG, 

C(452l J 

EQUIVALENCE 

(AW SIG* 

CI453)) 



EQUIVALENCE 

(ANSLAB(l) 

, Cl 875)), 

( ANSLA8( 454) 

, C 1 1328 ) ) 

EQUIVALENCE 

(FORM m * 

C( 1329) ) , 

(FORM ( 15 ) , 

C ( 1343 ) ) 

EQUIVALENCE 

(ELMT(m 

C( 1344) ) , 

IELMTI15), 

Cl 1358 ) > 

EQUIVALENCE 

( LLMT ( 1 > » 

C( 1344) ) , 

(LLMT 1 15 ) » 

C( 1358 J ) 

EQUIVALENCE 

( DATA ( 1 ) * 

C ( 1359 ) ) , 

(DATA (23 ) , 

C( 1381 ) ) 

EQUIVALENCE 

(MDATA( 2 ) t 

C ( 1359) ) , 

(MDATAI23) 

* Cl 1381) ) 

EQUIVALENCE 

( EN ( 1 ) * 

C 1 1382 > ) , 

( EN (90 ) * C( 1471 ) ) 

EQUIVALENCE 

( I SYS , 

C ( 1472 > > , 

(JEAN, 

C( 1473)1 

EQUIVALENCE 

{ ACX* 

Cl 1474) ), 

( ACF , 

C 1 1475 ) ) 

EQUIVALENCE 

( AMX • 

C( 1476 ) ) , 

(AMF, 

C( 1477 ) ) 

EQUIVALENCE 

(RHOX* 

C ( 1478 ) ) , 

(RHOF, 

C( 1479) ) 

EQUIVALENCE 

(COEFX(l). 

C ( 1480 ) ) , (COEFX ( 20 ) , CI1499)' 

EQUIVALENCE 

( DX ( 1 ) . 

CI1500) ), 

I DX( 20) , 

C ( 1519) ) 

EQUIVALENCE 

(FORMLA(l) 

, CI1520H 

, ( FORMLA ( 18 ) , CI1537); 

EQUIVALENCE 

( MMLA ( 1 ) » 

Cl 1520) >» 

(MMLA 1 18) » 

C (1537 ) ) 

EQUIVALENCE 

( PROD ( 1 ) , 

C ( 1538 ) ) , 

( PROD ( 3 ) , 

C (1540 ) ) 

EQUIVALENCE 

(SYSTMm* 

C(2542>>, 

ISYSTMH5) 

, C(1555)> 

EQUIVALENCE 

(MTSYS(1>* 

C I 1541 ) ) , 

(MTSYSI 15 ) , 

C 1 1555 ) ) 

EQUIVALENCE 

(OF, C ( 1556 ) ) ♦ 

(FPCT, C ( 1557 ) ) 

EQUIVALENCE 

< EQRAT* 

C 1 1556 ) ) 



EQUIVALENCE 

IKODE. CI1559JJ, (KASE* CU560I) 

EQUIVALENCE 

(KONT, C(1561>). 

(NF, 

C( 1562 ) ) 

EQUIVALENCE 

(NO, 

Cl 1563 ) ) , 

(NE, 

C( 1564) ) 

EQUIVALENCE 

( NOEQ * C I 1565 > ) 



EQUIVALENCE 

(BOX tl). 

CI1771)), 

(BOX (15), 

C ( 1785 ) ) 

EQUIVALENCE 

(BOF(l), 

Cl 1786 ) ) * 

( BOF I 15 ) , 

C( 1800) ) 

EQUIVALENCE 

(HX, 

C 1 1801 ) ) , 

(HF, 

C 1 1802 ) ) 

EQUIVALENCE 

(VXPLS, 

C ( 1603 1 ) , 

(VXMIN, 

C( 1804) } 

EQUIVALENCE 

(VFPLS, 

C 1 1805 ) J , 

(VFMIN, 

C( 1806) ) 

EQUIVALENCE 

(EN LN< 1 ) , 

C ( 1861 ) ) , 

(EN LN ( 90 ) * 

C ( 1950) ) 

EQUIVALENCE 

(DEL Nil). 

C( 1951 ) ) , 

(DEL N( 90 ) , 

C( 2040) ) 

EQUIVALENCE 

( HO ( 1 > , 

C 1 2041 ) ) , 

( HO ( 90 > * 

CI2130M 

EQUIVALENCE 

ism. 

Cl 2131 ) ) , 

( S ( 90 ) , 

C ( 2220 ) ) 

EQUIVALENCE 

(XU), 

C<2221))» 

1X120) * 

C( 2240) ) 

EQUIVALENCE 

(DELTA(l), 

' C 1 2241 ) ) , 

(DELTA! 20 ) , 

C I 2260) ) 

EQUIVALENCE 

(B0( 11, 

CI2261)), 

( B0( 15) , 

C( 2275 ) ) 

EQUIVALENCE 

(P0» 

C 1 2276 ) ) , 

(HSUBO, 

C( 2277) ) 

EQUIVALENCE 

(SO, 

Cl 2278) ) , 

(T LN, 

C< 2279} ) 

EQUIVALENCE 

(T, 

C < 2280 ) l * 

<AAY LN, 

C( 2281 } ) 


1896 

1897 

1898 

1899 

1900 

1901 

1902 

1903 

1904 

1905 

1906 

1907 

1908 

1909 

1910 

1911 

1912 

1913 

1914 

1915 

1916 

1917 

1918 

1919 

1920 

1921 

1922 

1923 

1924 

1925 
2 926 

1927 

1928 

1929 

1930 


1933 

1934 

1935 

1936 

1937 

1938 

1939 

1940 

1941 

1942 

1943 
2 944 

1945 

1946 

1947 

1948 

1949 

1950 

1951 

1952 

1953 

1954 

1955 


C 


EQUIVALENCE 

( AAY , 

C (2282 ) ) , 

(CPSUM, 

Cl 2283)) 

EQUIVALENCE 

(HC, 

C ( 2284) ) , 

<TC LN. 

C I 2285 > ) 

EQUIVALENCE 

(PCP(l), 

Cl 2286) ) , 

(PCPI25), 

Cl 2310) ) 

EQUIVALENCE 

(DATUM! 1) 

C(231D), 

(DATUM! 3) , 

C( 2313) ) 

EQUIVALENCE 

(PC, 

C ( 2314) ) , 

(TC, 

CI2315) ) 

EQUIVALENCE 

(IPR08, 

C ( 2316) ) , 

( IFIXT, 

Cl 2317 ) ) 

EQUIVALENCE 

(IHS, 

C( 2318 ) ) , 

( ICOND* 

C( 2319 ) ) 

EQUIVALENCE 

( ISYM, 

C ( 2320 > * 

(IPROD, 

Cl 2321 ) ) 

EQUIVALENCE 

( ID I D » 

C ( 2322 ) ) , 

(LDRUM, 

C 1 2323 ) ) 

EQUIVALENCE 

( IORM, 

C( 2323)1% 

OCDRUM. 

C(2324 > ) 

EQUIVALENCE 

(L, 

C ( 2325 ) ) , 

(Ll» 

Cl 2326) ) 

EQUIVALENCE 

(M, 

C ( 2327 ) ) , 

(Ml, 

C( 2328 ) ) 

EQUIVALENCE 

(N, 

C ( 2329 ) ) , 

(IQ, 

C 1 2330) ) 

EQUIVALENCE 

( 1Q1 , 

C 1 2331 ) ) , 

(IQ2, 

C( 2332 ) ) 

EQUIVALENCE 

(IQS, 

C I 2333 ) ) , 

UMAT, 

C 1 2334) ) 

EQUIVALENCE 

( IMAT, 

Cl 2335 ) ) , 

( IUSE ♦ 

C (2335 ) ) 

EQUIVALENCE 

I IADD, 

C ( 2336 ) ) , 

(ITNUMB, 

C ( 2337 ) ) 

EQUIVALENCE 

(ITAPE, 

C I 2338 ) ) , 

(P, 

CI2339) ) 

EQUIVALENCE 

( IDEBUG, 

CI2340) ), 

( IFR02, 

C (2341 » J 

EQUIVALENCE 

(All), 

C 1 2342 ) ) , 

(A ( 1350) , 

C( 3691 ) ) 

EQUIVALENCE 

(COEFTKl 

, C 1 3692 ) ) 

( COEFT 1 ( 1350) , CI5041)) 

EQUIVALENCE 

(C0EFT2I1), C ( 5042 1 , 

(COEFT2I1350) , CI6391)) 

EQUIVALENCE 

(COEFTIl) 

C 1 6392 ) ) , 

(COEFT ( 1350) , C ( 7741 ) ) 

EQUIVALENCE 

(ATOM(l), 

C( 7742 ) ), 

ATOM! 303 ) , 

C ( 8044 ) ) 

EQUIVALENCE 

(MATOMI 1) 

CI7742)), 

(MATOM! 303) 

, C ( 8044 ) ) 

DIMENSION 

G (20,21) , 

'A ( 15,90) , 

ENI90), 

EN LN(90) 

DIMENSION 

DEL N190), 

H0I9O), 

S( 90) » 

X(20) 

DIMENSION 

DELTA! 20) , 

BO ( 15 ) , 

PCP ( 25 ) , 

PROD! 3) 

DIMENSION 

COEFX (20) , 

DX (20), 

FORM (15) 


DIMENSION C0EFT1 1 15 ,90 ) 

, C0EFT2 1 15 

,90) 


DIMENSION 

ELMTC15), 

DATA (231, 

DATUM(3», 

FORMLA (18) 

DIMENSION 

80X115) , 

BOF ( 15 ) , 

ANS(454), 

5YSTMU5) 

DIMENSION LLMT (15) »MTSYS(15) *MDATA(23) 


DIMENSION 

ANSLABI 454) 

» COEFT ( 15 

,90) 


DIMENSION 

MATOM! 101 ,3 ) , ATOM< 101,3) 


DETERMINE WHICH MATRIX 

IS TO BE SET 

UP 


SENSE LIGHT 

LIGHT 

ON 

LIGHT OFF 

1 

COMBUSTION TYPE 

EXPANSION TYPE 

2 

ASSIGNED 

TEMPERATURE 

UNASSIGNED TEMPERATURE 


4 NOT CONVERGED CONVERGED 

IQ1=IQ1 

102=102 

103=103 

IF (SENSE LIGHT 2> 1.4 

1 SENSE LIGHT 2 

IF (SENSE LIGHT 4} 2,3 

2 SENSE LIGHT 4 
IFIXT*1 
I.SYM-I01 

GO TO 10 

3 I F I XT*2 
IHS=1 

1 SYM=IQ2 
GO T.O 10 

4 IFI XT=2 

IF (SENSE LIGHT 1) 5.6 


1956 

1957 

1958 

1959 

1960 

1961 

1962 

1963 

1964 
2965 

1966 

1967 

1968 

1969 

1970 

1971 

1972 

1973 

1974 

1975 

1976 

1977 

1978 

1979 

1980 

1981 

1982 

1983 

1984 

1985 

1986 

1987 

1988 

1989 

1990 

1991 

1992 

1993 

1994 

1995 

1996 

1997 

1998 

1999 

2000 
2001 
2002 

2003 

2004 

2005 

2006 
2 007 
2008 

2009 

2010 
2011 
2012 

2013 

2014 

2015 



106 


5 SENSE LIGHT 1 
1HS«1 

I SYM* 102 
GO TO 10 

6 IF (SENSE LIGHT 41 7. 8 

7 SENSE LIGHT 4 
IHS-2 

I SYM- 101 
GO TO 10 

8 IHS- 1 

I SYM* 1 02 
C 

C CLEAR MATRIX STORAGES TO ZERO 
C 

10 DO 212 1-1*102 
DO 211 K*1 » 103 
6( I *K) - 0.0 

211 CONTINUE 

212 CONTINUE 
ICOND-1 

IF (L-IQ) 14*213*14 

213 ICOND-2 
C 

C BEGIN SET UP OF ITERATION MATRIX 
C 

14 DO 65 J-l.M 
CALL BYPASS (J»ll 

IF IIPROD-2) 65*214,65 

214 IF (EN(J)J 65.65*12 
C 

C CALCULATE THE ELEMENTS RI1»X) 

C 

12 DO 20 I-l* L 

IF (AlhJII 13*20*13 

13 TERM- All , J)*EN ( J) 

DO 15 X-t, L 

G(I*K)» G(I,K> + A(K*J)*TERM 

15 CONTINUE 
C 

C COMPLETE COLUMN A FOR THE GAS MOLECULE 

C 

G(I*1Q1)«G(I ♦ 101 > ♦TERM 

20 CONTINUE 

G( 101 *101)- G( 101 » 101 )+EN( J) 

C 

C STATEMENT 24 IS FOR FIXEO T» 30 IS FOR VARIABLE T AND CONVERGED 
C FIXEO T 

C 

21 IF (IFIXT-2) 24*30*30 
C 

C FOR ASSIGNED T BYPASS ENERGY ROW AND T COLUMN WHILE ITERATING 
C 

24 TERM- (HO(J)-SU))*ENU) 

DO 25 I-l. L 

6(1*102 )»G(I»!Q2)+A(I.J)*TERM 

25 CONTINUE 

G{ IG1*IQ2)=G( IQ1* I02J+TERM 
60 TO 65 
C 

C FILL IN TEMPERATURE COLUMN AND RIGHT HAND SIDE 


2018 

2019 

2020 
2021 
2022 

2023 

2024 

2025 

2026 

2027 

2028 

2029 

2030 

2031 

2032 

2033 

2034 

2035 

2036 

2037 

2038 

2039 

2040 

2041 

2042 

2043 

2044 

2045 

2046 

2047 

2048 

2049 

2050 

2051 

2052 

2053 

2054 

2055 

2056 

2057 

2058 

2059 

2060 
2061 
2062 

2063 

2064 

2065 

2066 

2067 

2068 

2069 

2070 

2071 

2072 

2073 

2074 

2075 


30 TERM-HO(J)*EN(J) 

00 35 1*1 *L 

6(1*102)* G( I » IQ2 )+A( I * J)*T£RM 
35 CONTINUE 

6(101*102)- G(IQ1*IQ2)+TERM 
TERM1-(H0( J)-S( J) )*EN< J) 

DO 40 1*1 *L 

G ( I * 103 ) - G(I*I03)+A(I*J)*TERM1 
40 CONTINUE 

G(IQ1*IQ3)-G( IQ1 • IQ3)+TERM1 
C 

C STATEMENT 50 IS FOR ENTHALPY * 55 IS FOR ENTROPY EQUATION 
C 

45 IF (IHS-2) 50.55.55 
50 G( I02»I02)-G( 102. 102 >+H0( J)*TERM 
G( 102 * 103) -G( 102* I03)+H0( J)*TERM1 
60 TO 65 
C 

C DURING EXPANSION THE ENTROPY ROW IS FILLEO IN 
C 

55 TERM»S< J)*EN(J) 

DO 60 X-l.L 

60 G( IQ2 *K )* G(IQ2»X)+A(K*J)*TERM 
CONTINUE 

G(IQ2*I01)-G( 102*101 )+TERM 

G ( 1 02 * 102 ) =G ( IQ2*IO2)+H0(w»)*TERM 

G{ 102* I03)-G( 102* IG3)+(H0( J)-S( Jl )#T£RM 

65 CONTINUE 
C 

C AT THIS POINT PROCESSING OF GASEOUS PRODUCTS HAS BEEN COMPLETED 
C AND CONDENSED PHASE PROCESSING IS BEGUN 
C 

C STATEMENT 70 IS FOR CONDENSED PRODUCTS. 101 IS FOR NO CONDENSED 
C 

66 IF UCOND-2) 70*101*101 
70 K*L1 

DO 100 J* Ml »N 
CALL BYPASS (J*l) 

IF ( I PROD-2 ) 100*74*100 

74 DO 75 I»l*L 
G ( I * K } -A { I * J) 

75 CONTINUE 
C 

C STATEMENT 80 IS FOR FIXED T* 85 IS FOR VARIABLE T AND CONVERGED 
C FIXED T 
C 

IF (IFIXT-2) 80*85*65 
80 G(K*IG2>* HO(J)-S(J) 

GO TO 95 

85 G(X,IQ2>* HOU) 

60C.IQ3 )» HO(J)-S(J) 

C 

C STATEMENT 95 IS FOR ENTHALPY* STATEMENT 90 IS FOR ENTROPY EQUATION 
C 

IF (IHS-2) 95*90*90 
90 G(I02»K)-S( J) 

95 K- K+l 
100 CONTiNUE 
C 


2076 

2077 

2078 

2079 

2080 
2081 
2082 

2083 

2084 

2085 

2086 

2087 

2088 

2089 

2090 

2091 

2092 

2093 

2094 

2095 

2096 

2097 
2096 

2099 

2100 
2101 
2102 

2103 

2104 

2105 

2106 

2107 

2108 

2109 

2110 
2111 
2112 

2113 

2114 

2115 

2116 

2117 

2118 

2119 

2120 
2121 
2122 

2123 

2124 

2125 

2126 

2127 

2128 

2129 

2130 

2131 

2132 

2133 

2134 

2135 
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101 


102 

104 



106 

107 

109 

110 

115 

125 

130 

131 

133 

,136 

C 

c 


145 


150 

160 


THE MATRIX BEFORE COMPLETING THE 
TO THE MATRIX 


DO 104 1=1*1 SYM 
DO 102 J= 1 » I SYM 
G( Jtl )=GU.J) 
CONTINUE 
CONTINUE 


THE ADDRESS OF THE NEXT INSTRUCTION IF SET OURING INITl AL1Z/-TI0N 
STATEMENT 105 IS FOR CONDENSED. 130 IS FOR NO CONDENSED 


IF (ICOND-2) 105.130.13 


COMPLETE COLUMN A OF MATRIX 


DO 125 J=M1 »N 
CALL BYPASS (J»l) 

IF f I PROD-2 ) 125.106.125 
DO 107 I*1»L 

G ( ! . 101 ) =G ( I . 101 ) +A ( I » J ) *EN ( J ) 

CONTINUE 

IF (IFIXT-2) 125.109.109 
IF (IHS-2I 110.115.115 
G( 102.101)“ G ( 102 . 1 Cl >+H0( J)*EN( J) 

GO TO 125 

6llQ2tlQl)* GUQ2flQl>+SU)*ENtJ) 

CONTINUE 

GO TO (131.133) .IF1XT 

KMAT«.I02 

GO TO 136 

KMAT»I03 

IMAT=KMAT-1 

COMPLETE THE RIGHT HAND SIDE 

! 

DO U5 I *1 . 1 MAT 

G< I . K.MAT > =G { I . KMAT )-G ( I . 101 ) 

CONTINUE 
DO 150 I=1*L 

G ( I . KMAT ) * G(I»KMAT>+ AAY#80(I) 

CONTINUE 
P-» G(IOlilOl) 

G(IQ1,KMA\T> = GU01,KMAT)+ PO 
GUOl. 1011=0.0 

COMPLETE ENERGY ROW AND TEMPERATURE COLUMN 


IF (KMAT-I02) 165.185.165 

165 IF ( IHS-2 ) 166.168.168 

166 ENERGY=AAY*(HSUBO/T) 

GO TO 169 

168 ENERGY* AAY*S0+P0-P 

169 G(I02»I03) S 6(I02.IQ3)+ ENERGY 
GII02.IQ2)- G( IQ2.IQ2J+CPSUM 

185 RETURN 


2136 

2137 

2138 

2139 

2140 

2141 

2142 

2143 

2144 

2145 

2146 

2147 

2148 

2149 

2150 

2151 

2152 

2153 

2154 

2155 

2156 

2157 

2158 

2159 

2160 
2161 
2162 

2163 

2164 

2165 

2166 

2167 

2168 

2169 

2170 

2171 

2172 

2173 

2174 

2175 

2176 

2177 

2178 

2179 

2180 
2181 
2182 

2183 

2184 

2185 

2186 

2187 

2188 

2189 

2190 

2191 
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C 

c 

c 

c 


SUBROUTINE CORES 

FROZEN COMPOSITION EXPANSION 


COMMON C 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE ( 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 


CGC1), ( 6 ( 420 > * C I 420 ) I 

(ANSI])' C(421)>« ( ANSI 454 ) * CI874)) 

I HSUM * C(424>>, (SSUM* 0425)) 

IWTMQL, 0 426)1, (CP, 0(427)1 

(DLMPT* C(428 ) ) » (DLMTP. 0 429)) 

(GAMMA, C(430))» (ARATIO, CC 431 } > 

( VMACH, C ( 432 ) I , (SP IMP, C( 433) ) 

(VAC I , C 1 434 ) ) » CCF* 0436)) 

(RHOI , C ( 437 ) ) , (RHOVAC, 0 438)) 

(RHO, C (439 ) I 

(T PI, C 1 440 ) ) * (PI I» 0441) ) 

(EP PI, C ( 442 > ) * (AW PI* C(443) ) 

(T ETA, C ( 445 ) > 

(ETA !, C 1 446 ) ) , (EP ETA, C(447)l 

(AW ETA, C ( 448 ) ) , (TSIG, 0450)) 

(SI6 I* 0451))* (EP SIG* 0452) ) 

(AW SIG, 0 453) > 

(ANSLAB(l), 0 875))* ( ANSLAB< 454 ) , C ( 1328 ) » 
( FORM( 1 ) , C ( 1?29 ) > ♦ (F0RMC15), C(1343>> 

CELMTll)* C( 1344) ) » CELMTC15), 0(1358)1 

(LLMT(l), C ( 1 344 ) ) , (LLMTUS), C ( 1350 » ) 

( DATA { 1 ) , 0 1359)1, (DATA(23) , 01381)) 

(MDATA(l), C ( 1359 ) ) , <MDATA(23) * C( 1381 ) > 
(ENtl), C 1 1382) ) , (EN(90>* 01471)) 

C ( 1472 ) ) , (JEAN 
C ( 1474) ) , (ACF , 

C ( 1476 1 ) , (AMF 
Cl 1478)), IRHOF 


C( 1473 ) I 
01475) ) 

C ( 1477 ) I 
C l 1479) > 


< ISYS, 

(ACX, 

( AMX , 

(RHOX, 

(COEFX(l). C ( 1480 ) ) , (C0EFX(20) , C< 1499 > > 

(DX(1), C ( 1500 ) ) , IDX120), C < 1519) ) 

(FORMLA(l), C ( 1520 I » * < FORMLA ( 18 ) , C ( 1537 > ) 

(MMLAI1), C 1 1520 ) ) ♦ IMMLA118), C(1537)) 

( PROD ( 1 1 , C ( 1538 ) ) , ( PROO ( 3 ) * C( 1540>) 
(SYSTM(l), 01541)), ( SYSTM ( 15 ) , 0 1555)) 

(MTSYS(l). 01541)), (MTSYSU5), C( 1555)) 


(OF, C ( 1556 ) ) 

(EORAT, C< 1558) ) 

KODE, C 1 1 559 ) I , CKASE 

CKONT, CC 1561 ) > , (NF, 
(NO, C ( 1 563 ) ) , (NE 

( NOEO, C (1565 ) I 
(NOFROZ, C ( 1566 ) ) 


(FPCT, CC 1557 ) ) 


C ( 1560 ) ) 
CC1562) ) 
CI1564) ) 


CBOX(l) , 
(BOF( 1) , 
(HX, 
CVXPLS, 
(VFPLS* 

(EN LN ( 1 ) i 
(DEL NCI), 
(HOC 1), 
(SCI)* 
(XCl) , 

C DELTA! 1 ) i 
( BO ( 1 ) , 


CC 1771 ) ) 
CC 1786 ) ) 

C ( 1801 ) ) 
CC1803I ) 

C ( 1805 ) ) 

C ( 1861 ) ) 
CC 1951 ) ) 
CC 2041 ) ) 

C ( 2131 ) ) 
CC2221 ) ) : 
CC2241) ) 
CC2261) ) i 


(BOX! 15), 
CBOFC 15), 
CHF, 

( VXMlN, 

I VFMIN, 

(EN LNI90), 
(DEL N( 90 ) * 
(HOC 90 ) , 

( S ( 90 ) » 

(X ( 20 ) , 

I OELTAC 20 ) , 
(80(15) , 


CC 1785 ) ) 
CC 1800) ) 
C C 1802 ) ) 
CC 1804) ) 
CC1806) > 
CC 1950) ) 
CC2040) ) 
CC 2130) ) 
CC2220) ) 
CC 2240) ) 
CC2260) » 
C ( 2275 ) > 


2192 

2193 
219* 

2195 

2196 

2197 

2198 

2199 

2200 
2201 
2202 

2203 

2204 

2205 

2206 

2207 

2208 

2209 

2210 
2211 
2212 

2213 

2214 

2215 

2216 

2217 

2218 

2219 

2220 
2221 
2222 

2223 

2224 

2225 

2226 


2229 

2230 

2231 

2232 

2233 

2234 

2235 

2236 

2237 

2238 

2239 

2240 

2241 

2242 

2243 

2244 

2245 

2246 

2247 

2248 

2249 

2250 

2251 


EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

equivalence 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 


(PO, 

C ( 2276 ) ) , 

(HSUBO, 

02277) ) 

(SO, 

C ( 2278 ) ) , 

(T LN, 

C! 2279) ) 

CT, 

C ( 2280 ) ) * 

(AAY LN, 

0 2261) ) 

( AAY , 

C ( 2282 ) ) , 

(CPSUM, 

O 2283 ) > 

(HC, 

C ( 2284 ) ) , 

(TC LN, 

0 2285) ) 

( PCP (1) , 

022861) » 

(PCPC25), . 

02310) ) 

( DATUM < 1 ) , 

02311) ), 

( DATUM! 3 ) , 

02313) > 

(PC, 

02314) ) , 

(TC, 

02315) > 

( IPROB, 

02316) ) , 

( IFIXT* 

02317) ) 

( IHS, 

02318) ) , 

(ICOND, 

CC 23 19 ) ) 

( ISYM, 

02320) ) ♦ 

( IPROD, 

0 2321) ) 

( ID I D , 

0 2322 ) I » 

(LORUM, 

0 2323) > 

( IDRM, 

02323) ) » 

CKORUM, 

CC2324) ) 

(L, 

C ( 2325 ) ) » 

(LI, 

CC2326) ) 

CM, 

02327) ) , 

(Ml, 

02328) ) 

(N, 

02329) ) , 

(10, 

0 2330) > 

(101, 

02331)) , 

( IQ2* 

02332) ) 

C 103, 

C < 2333 ) ) , 

(KMAT , 

0 2334) ) 

1 IMAT, 

C< 2335 ) ) , 

(IUSE, 

CC 2335 > ) 

( I ADD, 

0233611* 

(1TNUMB, 

02337)) 

(ITAPE, 

C ( 2338 ) ) , 

(P, 

02339) ) 

C IDEBuG, 

023401), 

( IFROZ, 

02341) ) 

(AU) , 

C ( 2342 ) ) , 

(A( 1350) , 

0 3691) ) 

(COEFT1 ( 1 ) i 

. 0 369 2) ) 

, (COEFTM 1350) , 05041 

(COEFT2C1)' 

. 0 5042)1, 

(C0EFT2 1 1350 ) , 06391) 

( COE FT ( 1 > » 

06392) ) , 

CCOEFT ( 1350) , 07741) 

( ATOM ( 1 ) » 

07742) >, 

( ATOM ( 303 ) , 

0 8044) ) 

(MATOMC 1) , 

07742)), 

(MATOM( 303) 

, 0 80441) 


DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 


GUO, 21 ) , A C 15 ,90) , ENC90), 

DEL N I 90) , HO 1 90 ) , SC90)» 

DELTA! 20) » BO(15)» PCP(25), 

COEFXC20), DXC20), FORM! 15 ) 

COEFT1 ( 15,90) , COEFT2C 15,90) 

ELMTC15), DATA (23), DATUM ( 3 ) , 

BOX (15), BOF ( 15) , AN SC 454) » 

LLMT ( 15 ) ,MTSYS( 15 > »MDATA ( 23 ) 
ANSLABC454), C0EFT(15»90> 

MATOMC 101*3), ATOMC 101,3) 


EN LN ( 90 ) 
X ( 20 ) 

PROD 1 3) 


FORMLA ( 18 I 
SYSTMU5) 


NO FROZ*0 
MISS£D=0 

DO 1004 J = 1,454 
1004 ANSCJ) = AN SLAB ( J ) 

4 IADD=1 

1 TROT=3 

AL^HAsO^O 

DO 7 J= 1 , N 

ENC J)*ANS(4*J+34) 

IF CEN(J)) 6,6*15 
15 IF CJ-M) 5,5,7 

5 EN LN ( J ) “LOGF ( EN ( J ) ) 
ALPHA* ALPHA+EN ( J ) 

GO TO 7 

6 EN LNl J)=0*0 
ENC J)*0.0 

7 CONTINUE 
WTMOL'F=ALPHA*WTMOL 
PC=ANS t 2 ) 


2254 

2255 

2256 

2257 

2258 

2259 

2260 
2261 
2262 

2263 

2264 

2265 

2266 

2267 

2268 

2269 

2270 

2271 

2272 

2273 

2274 

2275 

2276 

2277 

2278 

2279 

2280 
2281 
2282 

2283 

2284 

2285 

2286 

2287 

2288 

2289 

2290 

2291 

2292 

2293 

2294 

2295 

2296 

2297 

2298 

2299 

2300 

2301 

2302 

2303 

2304 

2305 

2306 

2307 

2308 

2309 

2310 

2311 
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T LN=L0GF(ANS<3>> 

HC=ANS(4)/1. 98726 

S0= ( ANS ( 5 ) *WTMOLF/l. 98726)+ALPHA*L0GF (PC/ALPHA) 

DLMPT=0.0 

DLMTP=0.0 


BEGIN CALCULATIONS FOR CURRENT POINT 

CHECK TEMPERATURE RANGE OF THERMODYNAMIC DATA 


' DO 1117 J=l»454 
1117 ANSLABI J>=ANS( J) 

17 T=EXPF (T LN) 

19 IF <C0EFT(7»1)-T) 21.27.27 

21 IF (COEFTf 7, 2 1—5000.07 23. 22.451 

22 IF { I ADD-2) 51.31.31 

23 DO 1123 K a 1.15 

DO 1123 J = 1.90 

1123 COEFT ( K» J) * C0EFT1(K»J) 

SENSE LIGHT 4 
GO TO 19 

25 DO 1125 K * 1.15 

DO 1125 J * 1.90 

1125 C0EFT(K*J)=C0EFT2(K,J) 

SENSE LIGHT 4 
GO TO 19 

27 IF ( T— COEFT (6.1)) 29.35.35 
29 IF (300.0-COEFT(6»1>> 25.22.451 
31 IF (SENSE LIGHT 4) 38.305 
C 

C LEAVE FR02EN* PROGRAM IF DATA FOR ANY SPECIES RUNS OUT 
C 

35 IF ( I ADD-2 ) 51,37.37 

37 IF (SENSE LIGHT 4) 38.41 

38 SENSE LIGHT 4 
00 40 J*1»N 

IF (COEFT ( 8 . J I ) 40.39.4 

39 IF (EN(JJ) 40*40.309 

40 C0N7INUE 
GO TO 49 

41 00 44 J»1.N 

IF (EN(J>) 44,44.42 

42 IF ( COEFT ( 5 » J )+20»0-T ) 285.43.43 

43 IF (T-C0EFT(4,J)+20.0) 295.44.44 
285 IF (5000.0-COEFTI5.J) 1 44.44.311 
295 IF (COEFT (4. J) —300.0) 44.44.321 

44 CONTINUE 
C 

C BEGIN ITERATION 
C 

49 PCP LN=LOGF (PCP ( I ADD) ) 

51 CPSUM=0.0 
T°EXPF(T LN) 

DO 60 J-l.N 

IF (EN ( J ) ) 60.60.57 

57 CPSUM=CPSUM+( ( ( (COEFT ( 12, J)*T+COEFT ( 11 » J ) )*T+COEFT ( 10, J ) )*T +C0EFT ( 
19 » J )) *T+COEFT ( 8 . J) )*EN(J> 

58 H0( J> = ( ( ((COEFT 112. J)/5«0 )*T+COEFT( 11. J 1/4.0 >*T+CO£FT( 10. J)/3.0)*T 
1+COEFT (9»J)/2«0)*T +COEFT ( 13 » J ) /T+COEFT ( 8 * J ) 

59 S(J}=<( ((COEFT( 12. J J/4.0 )*T+COEFT< 11 ,J)/3.0)»T+C0EFT( 2O»J)/2.0)*T 
1 +COEFT (9. J ) I*T+COEFT ( 8 » J )*T LN+COEFT ( 14, J >-EN LN(J) 


2312 

2313 

2314 

2315 

2316 

2317 

2318 

2319 

2320 

2321 

2322 

2323 

2324 

2325 

2326 

2327 

2328 

2329 

2330 

2331 

2332 

2333 

2334 

2335 

2336 

2337 

2338 

2339 

2340 

2341 

2342 

2343 

2344 

2345 

2346 

2347 

2348 

2349 

2350 

2351 

2352 

2353 

2354 

2355 

2356 

2357 

2358 

2359 

2360 

2361 

2362 

2363 

2364 

2365 

2366 

2367 

2368 

2369 

2370 

2371 


SUM H=0.0 
SUM S=0.0 
DO 63 J»1.N 

SUM H=SUM H+HO(J) *ENIJ) 

63 SUM S*SUM S*S{ J)#EN( J) 

IF (IAOD-2) 81.65.65 

65 IF (SENSE LIGHT 4) 66.81 

66 SENSE LIGHT 4 

67 0 LN T= ( SUM S+( ALPHA*PCP LN )-S0) /CPSUM 
C 

C CHECK CONVERGENCE OF THE ITERATION 
C 

T LN=T LN-D LN T 

IF (A8SF(D LN T)-0.5E-4> 73.73.51 
73 IF (SENSE LIGHT 4) 17.17 
81 DO 1181 J = 1,454 
1181 ANS(J> = ANSLAB(J) 

SUM H=r#SUM K/WTMOLF 
CPR=CPSUM/WTMOLF 
GAMMA=CPR/ I CPR- ( 1 . O/WTMOL )) 

IF (IADD-2) 209,191,197 
C 

C CHECK FOR CONVERGENCE AT THROAT 

C 

191 DHSTAR=HC-SUM H - ( GAMM A*T / ( 2 • 0*WTMOL ) I 

IF ( ABSF ( DHSTAR/< HC-SUM HH-0.4E-4) 197,197,192 

192 IF (ITROT) 193,197,193 

193 PCP ( 2 ) = PCP (2) /l U 0+2.0»DHSTAR*WTM0L/ ( T* I GAMMA +1 . 0 ) > ) 
SENSE LIGHT 4 

ITROT=ITROT— 1 
GO TO 49 
C 

C CALCULATE PERFORMANCE PARAMETERS 

C 

197 SP IMP=294.98*$GRTF( (HC-SUM H)*1.98726E-3) 

P=PC/PCP{ IADO) 

AW= ( 86 .4579*T ) / ( P*WTM0L*14. 696006*SP IMP I 
IF ( IADD-2) 203,201,203 
201 AWT =AW 

CSTAR=32.174*PC*14.696006*AWT 
203 CF=32. 174*SP 1MP/CSTAR 
ARAT 10= AW/AWT 
VACI=SP IMP+P*14.696006*AW 
VMACH=SP IMP/SORTF ( 86,4579*GAMMA*T/WTM0L I 
207 ANS (2 ) =P 
ANS(3I*T 

209 HSUM=SUM H*l. 98726 
CP»CPR* 1.98726 
ANS( 1 1 =PCP( IAOD J 
ANS ( 15 ) *CSTAR 

WRITE TAPE 3, (ANSI I ) , 1 = 1,454 ) 

NO FR02«N0 FROZ+1 
IF (MISSED) 451.223.451 

223 I ADD* I ADD+1 

IF (IAOD-2) 1225.224.1225 

224 PCP(2)=((GAMMA+1.O>/2.O»**(GAMMA/(GAMMA-I.0I ) 

T LN*T LN+LOGF (2,0/ (GAMMA+1 .0 ) ) 

1225 IF ( I ADD W 25 I 225.225.451 

225 JF (PCPIIADD)) 451,451,227 
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ERROR PRINT OUT 

305 WRITF OUTPUT TAPE 6 *306 *T * I ADD 

306 FORMAT ( 17HLTHE TEMPERATURE=E12. A. 26H K* IS OUT OF RANGE. POINT 15) 
IF (6000. O-T) 449*307*307 

307 IF (T-200.0) AA9.308.308 

308 GO TO A1 
AA9 MI55ED=1 

l TROT =0 

IF (SENSE LIGHT A) 51*51 
A51 WRITE TAPE 3. (G(D* 1*1*8044) 

CALL CORE5 

309 WRITE N OUTPUT TAPE 6*310* (COEFT (I . J> * 1 = 1 *3 ) .COEFT (6* J ) *COEFT( 7. J) 

310 FORMAT (13H6THE SPECIES 3A6*29H HAS NO DATA IN THE INTERVAL 2F9.1) 
00 1311 K. * 1*15 

DO 1311 J - 1*90 
1311 COEFT (K»J) = C0EFT1 (K»J > 

GO TO 449 . , 

311 WRITE OUTPUT TAPE 6*312* ( COEFT ( I * J I * I =1 *3) »T 

312 FORMAT (13H6THE SPECIES 3A6»19H HAS NO DATA AT T= F9.1) 

GO TO 449 
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C 


CORE LOAO 4 DETONATION VELOCITIES 
IF ( JEAN-101 ) 100*101.100 
100 WRITE OUTPUT TAPE 6.2 

2 FORMAT ( 38H1 DETONATION VELOCITY 


PPP=15.0 

CON= t ACF+OOF*ACX ) / ! 1 • O+OOF > 

AMI =AMX#AMF* ( 1 . O+OOF ) / ! AMX+OOF*AMF ) 
WRITE OUTPUT TAPE 6.102.KODE 
102 FORMAT ( 4X.5HK0DE* 1 1) 
PCPm=l.D/PPP 
PCP ( 2 ) =0«0 
R=l. 98726 
TTT=0.0 
H1=HSUB0*R 


P1=PC 


T1=TC 

PC=PC*14. 696006 


ITR=0 

JEAN=101 

20 HSUB0=H1/R+«75*T1/AM1»PPP 

21 KORE =0 
RETURN 

101 DO 1101 J- 1.454 
1101 ANS ( J ) = ANSLAB ( J I 
GAM=GAMMA 
IF (H0DEl9l.92.9l 

91 GAMMA=GAMMA*( 1.0+DLMPT) 

92 PPP=ANS(2»/P1 
TTT=ANS!3I/T1 


E = PPP 


CALCULATIONS) 


EE»TTT 

IF ( ITR >201 .200.201 
200 TEMM= WTMOL/ AMI 
11=0 

WRITE OUTPUT TAPE 6 .203 . 1 1 .PPP.TTT 

DO 202 11=1.7 

T£M=TEMM/TTT*GAMMA 

PPPP= ( 1 . O+GAMMA ) / ! 2 . 0*T EM ) * 

2<1.0+SQRTF(1.0-4.0*TEM/(1.0+6AMMA)**2) ) 

TE=TEM/GAMMA*PPPP 

TTTT=EE-.75*R/< AM1*CP)«E+GAMMA*R/!2.*AM1*CP)*( ( T£**2-l .0 ) /TE ) #PPPP 
WRITE OUTPUT TAPE 6 . 203 . 1 1 »PPPP. TTTT 
203 FORMAT! I5.2E20.8) 

IF iABSF(PPPP-PPP)-. 1)205.205.206 
206 PPP=PPPP 
TTT=TTTT 
202 CONTINUE 
205 PCP! 1 ) =T 1*TTTT 
PC=P1*PPPP 


TC=0.0 


I PR0B=3 


ITR = 1 
GAMMA=GAM 
GO TO 21 

201 TEMM=PPP/TTT*WTM0L/AM1 

TEM=(1.0-6AMMA*(T£MM-1.0 > ) 

A1 1=1. 0/PPP-GAMMA*T£MM*< 1.0+DLMPT) 

A 1 2 =GAMMA*T EMM* ! 1 • O-DLMTP > 

A21=GAMMA/2.0*tDLMPT+TEMM**2*t2.0+DLMPT ) l-DLMTP 
HAL=GAMMA/2 . 0* ( TEMM**2+1 . 0 ) 
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A22=HAL* ( DLMTP-1 .0 > -WTMOL*CP/R 
B1=1.0/PPP-TEM 

B2=WTM0L/ < R#ANS ( 3 ) I * ( HSUM-H1 ) -GAMMA / 2 * 0* ( TEMM**2- 1 . 0 ) 

ASSIGN 51 TO JJ 

50 E£M=A11#A22-A21*A12 
X1MB1*A22-B2*A12W£EM 
X2=<A11*B2-A21*B1>/£EM 

GO TO JJ. (51. 52. 53. 59) 

51 TE»ABSF(X1) 

TEM»ABSF(X21 

IF! TE-.4 194,94.95 

94 IFUEM-. 4)96. 96*95 

96 ALAM=1 .0 
GO TO 97 

95 IF ( TE-TEM 193.93*98 
93 HAL=TEM 

GO TO 99 

98 HAL=TE 

99 ALAM=. 4/HAL 

97 PPPP=PPP*£XPF!X1*ALAM) 

TTTT=TTT*EXPF(X2*ALAM) 

301 US=91. 18496 *SQRTF ! GAMMA*ANS ( 3 ) /WTMOL ) 

UD=TEMM*US 
PCP ( 1 ) =T1#TTTT 
PC=P1*PPPP 
TC=0, 0 
I PR0B=3 
TE=WTM0L/AM1 
TEM=PPPP/TTTT*TE 
E=X1*#2+X2**2 
EE=SORTF!E) 

WRITE OUTPUT TAPE 6.10*ITR 

10 FORMAT (21H0 ITERATION NUMBER* 12 * 10X. 3H0LD* 17X.3HNEW/ / ) 

WRITE OUTPUT TAPE 6,30»PPP*PPPP»TTT*TTTT.TEMM,TEM*X1*X2*US,U0.E 

2, EE 

30 FORMAT < 6X.4HP/P1 > 10X. 1H=2£20»8/6X»4HT/T1 » 10X. 1H=2E20»8/6X *8HRH0/RH 
101,6X,1H=2E20.8/6X»11HDEL LN P/P1.3X *1H=E20. 8/6X, 11HDEL LN T/T1.3X 
2.1H=E20»8/6X.2HU$. 12X. 1H=E20»8/6X» 2HU0. 1 2X* 1H=E20»8/6X .1HE.13X , 1H = 
3E20.S/6X.13HSQR ROOT OF E »1X*1H=E20*8 ) 

PPPsPPPP 

TTT=TTTT 

IF ( ABSF !X1 ) -«5E-05 >11.11,12 

11 IF ( ABSF (X2 V— .5E-05 113.13.12 

12 IFUTR-10H4, 13*13 
14 ITR=I TR+1 

GAMMA =GAM 
GO TO 21 

13 J£AN=10 

p.ppp#pl 

T=TTT*T1 

US=91. 18496 #SQRTF (GAMMA*T/WTMOL) 

UD=TEM*US 

WRITE OUTPUT TAPE 6*31 

31 FORMAT ( 17H1 FINAL ANSWERS//) 

WRITE OUTPUT TAPE 6 .32 .PPP.TTT .TE.TEM.P.T .WTMOL, P1.T1. AMI .US.UO 
2. CON 

32 FORMAT (6X.4HP/P1 » 10X » 1H=E20»8/6X .4HT/T 1 » 10X. 1H=E20»8/6X»4HM/Ml»10 
2X,1H=E20.8/6X,8HRHO/RH01,6X,1H=E20.8/6X,1HP,13X,1H=E20.8/6X,1HT»13 
3X,1H=E20«8/6X»1HM,13X.1H=E20.8/6X»2HP1.12X,1H=E20.8/6X,2HT1»12X»1H 
4=E20.8/6X.2HM1,12X.1H=E20.8/6X,2HUS»12X»1H=E20.S/6X»2HUD»12X,1H=E2 
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50«8/6X,2HCP»12X*1H=E20.8) 

IF (CON i 41*40*41 

41 GAMFsCON/ < CON-R/AM1 ) 

AMDaUO/ ( 91 . 18496*SQRTF ( GAMF*T 1/AMI ) ) 

WRITE OUTPUT TAPE 6 * 4 2 f GAMF * AMD 

42 FORMAT ( 6X*7HGAMMA F»7X»1H«=E20*8/6X« 2 HMD* 12X*1H=E20«8) 
GO TO 150 

40 6AMF-0.0 
AM0»0»0 


150 FEM».5*t2.0+DLMPTJ 
TEMM*.5*<DLMTP-1.0> 

WRITE OUTPUT TAPE 6»55 

55 FORMAT (17H0 DERIVATIVE 0F*12X.4HLN P*13X*4HLN T.13Xt5HLN UD/4X * 
22HBY ) 

B1=1.0/PPP~GAMMA*TEM 
B2=GAMMA* TEM**2 
ASSIGN 53 TO JJ 
GO TO 50 

53 CASEl«fFEM*Xl+TEMM*X2-l»0)*UD 


X1»X1-1.0 

WRITE OUTPUT TAPE 6 .81 *X1 »X2 «CASE1 
81 FORMAT (6X.12HLNP1 AT T 1 .G»7X , 1H=3E 17.8 ) 
Al-Xl 
A2 = X2 
A3=CASE1 
b:=gamma*tEm 

62->-Bl*TEM-WTMOL*CON/R/TTT 


ASSIGN 59 TO JJ 
GO TO 50 

59 CASE4=(FEM*X1«-T£MM*X2+1.0I*U0 
X2=X2-1.0 

WRITE, OUTPUT TAPE 6 »84 »X1 »X2 >CASE4 
84 FORMAT (8Xtl6HLNTl AT P 1 »H 1 «M1 *3X * 1H=3E 17 ♦ 8 ) 
A4=X1 


A5=X2 

A6=CASE4 

BI^O'.O 

B2— WTMOL/(R*T) 

ASSIGN 52 TO JJ 
GO TO 50 
52 X1=X1*1000.0 
X 2 =X2* 1000*0 

CASE5«(FEM*X1+TEMM*X2)*UD 
WRITE OUTPUT TAPE 6*85*X2 »X2 fCASE5 
85 FORMAT I6X*20HH1 AT T1»P1»M1 =3E17.8) 

A7=X1 


A8*X2 

A9=CASE5 

GAMMA=GAM 

IPR08=1 

UUS*91.18496*-S0RTF(GAMF*Tl/AMl) 

WRITE TAPE 3*(G(I)»I-1 *8044 ) 

CALL OUT 

KOREal 

RETURN 


2697 

2698 

2699 

2700 

2701 

2702 

2703 

2704 

2705 

2706 

2707 

2708 

2709 

2710 

2711 

2712 

2713 

2714 

2715 

2716 

2717 

2718 

2719 

2720 

2721 

2722 

2723 

2724 

2725 

2726 

2727 

2728 


2729 

2730 

2731 

2732 

2733 

2734 

2735 

2736 
2 73 7 

2738 

2739 

2740 

2741 


2742 

2743 
2 744 

2745 

2746 

2747 

2748 

2749 

2750 

2751 
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SUBROUTINE OUT 2752 

2753 


COMMON C 





2754 

EQUIVALENCE 

(6(1) * 

C(1 ) )* 

(G(420 ) * 

C ( 420 ) > 

2755 

EQUIVALENCE 

(ANSI 1) * 

C (421 ) ) » (ANSI 454 ) * 

C ( 874 > ) 

2756 

EQUIVALENCE 

(HSUM* 

C(424) )* 

(SSUM. 

0 425) ) 

2757 

EQUIVALENCE 

(WTMOL* 

C ( 426) )* 

(CP* 

C ( 427 ) > 

2758 

EQUIVALENCE 

(DLMPT ♦ 

C(426))» 

(DLMTP » 

0429)) 

2759 

EQUIVALENCE 

(GAMMA. 

C( 430) )» 

(ARATIO, 

C( 431 ) ) 

2760 

EQUIVALENCE 

( VMACH* 

C( 432 ) )* 

(SP IMP, 

C ( 433 ) ) 

2761 

EQUIVALENCE 

(VACI* 

CI434) ) » 

(CF. 

C ( 436 ) ) 

2762 

EQUIVALENCE 

{ RHO I » 

C(437>)» 

(RHOVAC* 

C ( 438 ) ) 

2763 

EQUIVALENCE 

(RHO* 

C(439) ) 



2764 

EQUIVALENCE 

(T PI, 

C(440) )♦ 

(PI I* 

0 441) ) 

2765 

EQUIVALENCE 

(EP PI* 

C(442) ), 

(AW PI. 

0443)) 

2766 

EQUIVALENCE 

(T ETA, 

C ( 445 ) ) 



2767 

EQUIVALENCE 

(ETA I* 

C ( 446 ) ) * 

(EP ETA* 

0447) ) 

2768 

EQUIVALENCE 

(AW ETA* 

C ( 448 ) ) * 

(T SIG. 

C ( 450 ) ) 

2769 

EQUIVALENCE 

(SIG I. 

C 1 451 ) ) « 

(EP SIG* 

0452) ) 

2770 

EQUIVALENCE 

(AW SIG* 

C ( 453) > 



2771 

EQUIVALENCE 

( ANSLAB ( 1 ) * C I 875) ) * 

(ANSLAB! 454)* O 1328)1 

2772 

EQUIVALENCE 

(FORMUl, 

C( 1329 ) ) * 

(FORM (15) 

♦ 01343) ) 

2773 

EQUIVALENCE 

( DATA ( 1 ) * 

C( 1359) ) ♦ 

(DATA (23) 

* 01381) ) 

2774 

EQUIVALENCE 

(MDATA(l) 

» C ( 1359 ) ) * 

(MDATA(23) » 01381)) 

2775 

EQUIVALENCE 

( EN ( 1 ) , 

C ( 1382 ) ) , 

< EN ( 90 ) ♦ 

01471)) 

2776 

EQUIVALENCE 

1 1 SYS* 

C( 1472 ) ) 



2777 

EQUIVALENCE 

( ACX* 

C ( 1474) ) * 

(ACF* 

0 1475)} 

2778 

EQUIVALENCE 

( AMX » 

Cl 1476) )f 

(AMF, 

01477)) 

2779 

EQUIVALENCE 

(RHOX. 

C( 1478 ) ) * 

(RHOF, 

0 1479)) 

2780 

EQUIVALENCE 

< COEFX! 1) 

♦ C<1480) )» ( COEFX ( 20 ) , 01499)) 

2781 

EQUIVALENCE 

( DX ( 1 ) • 

0 1500) )» 

( DX (20 ) , 

Cl 1519) ) 

2782 

EQUIVALENCE 

(FORMLA(l), C( 1520) J 

» ( FORMLA ( 18 ) , 01537)1 

2783 

EQUIVALENCE 

(MMLA(I)J 

0 1520)) * 

(MMLA ( 18 > * C < 1537 ) ) 

2784 

EQUIVALENCE 

( PROD ( 1 1 , 

01538) )* 

(PROD< 3 ) * 

015*0) > 

2785 

EQUIVALENCE 

(SYSTM(l) 

, 01541))* 

(SYSTM! 15 ) » C ( 1 555 > ) 

2786 

EQUIVALENCE 

(MTSYS(1I 

* 01541))* 

(MTSYSU5) 

. 01555)) 

2787 

EQUIVALENCE 

(OOF, 

0 1556)) 



2788 

EQUIVALENCE 

(OF, 

01556))* 

( FPCT * 

0 1557)) 

2789 

EQUIVALENCE 

( PERCF * 

01557))* 

( EQUIV, 

C ( 1558 ) ) 

2790 

EQUIVALENCE 

(EQRAT, 

0 1558)) 



2791 

EQUIVALENCE 


(KASE* 

C ( 1560 ) ) 

2792 

EQUIVALENCE 

(KONT. 

O 1561 ) ) » 

(NF» 

C( 1562) ) 

2793 

EQUIVALENCE 

(NO, 

C( 1563 1 ) , 

(NE* 

01564)) 

2794 

EQUIVALENCE 

{ NOEQ * C ( 1565 ) ) 



2795 

EQUIVALENCE 

{ NOFROZ* 

0 1566)) 



2796 

EQUIVALENCE 

(PI* 

01567))* 

(Tit 

O 1568 ) ) 

2797 

EQUIVALENCE 

(AMI, 

C ( 1569) > 

. (HI. 

01570)) 

2798 

EQUIVALENCE 

(CON, 

C ( 1571 ) ) * 

(ITR* 

0 1572)) 

2799 

EQUIVALENCE 

(R* 

0 1573) >• 

(KODE* 

01574)) 

2800 

EQUIVALENCE 

(JEAN, 

0 1575)), 

(GAMF* 

C ( 1585 ) ) 

2801 

EQUIVALENCE 

(Al, C ( 1576 ) ) , (A2 

, C< 1577 ) ) * (A3, C 1 1 578 ) ) 

2802 

EQUIVALENCE 

( A4» C( 1579) ) » (A5» C(1580n* (A6* C(1581)) 

2803 

EQUIVALENCE 

( A7 » C ( 1582 ) ) * ( A8 * 

01583) ) 

, (A9» 01584)) 

2804 

EQUIVALENCE 

(UUS» 

01586)) 

» (US* 

01587)) 

2805 

EQUIVALENCE 

(PPP* 

C ( 1588 ) ) , 

( TTT » 

C< 1589) ) 

2806 

EQUIVALENCE 

(TE, 

01590))* 

(TEM, 

01591) ) 

2807 

EQUIVALENCE 

(AMD* 

0 1592))* 

(UD. 

C ( 1593 ) ) 

2808 

EQUIVALENCE 

<KD» C ( 1763 ) ) * (II* C ( 1 7 64 ) ) 


2809 

equivalence 

(MM* C( 1765 ) ) * (IN* C( 8046) ) 


2810 

EQUIVALENCE 

(ME* C ( 1769 ) ) 



2811 


EQUIVALENCE 

( BOX ( 1 ) * 

01771)), 

(BOX { 15 ) * 

01785) ) 

EQUIVALENCE 

(BOF(l), 

C ( 1786 ) ) ♦ 

IBOF 1 15 ) » 

Cl 1800) ) 

EQUIVALENCE 

(HX* 

01801)1 » 

(HF» 

O 1802 ) ) 

EQUIVALENCE 

IVXPLS* 

01803)) * 

( VXMIN* 

0 1804) ) 

EQUIVALENCE 

(VFPLS* 

C ( 1805 ) ) * 

(VFMIN, 

C ( 1806 ) ) 

EQUIVALENCE 

(EN LN( 11 * 

01861)), 

1 EN LNI90J* 

O 1950 1 ) 

EQUIVALENCE 

(DEL N( 1 ) * 

019511 1, 

(DEL N(90l* 

0 20*0) ) 

EQUIVALENCE 

( HO ( 1 ) * 

C( 2041 ) ) , 

1 HO (90) * 

02130) ) 

EQUIVALENCE 

(S(l), 

02131)), 

(S(90) * 

O 2220) ) 

EQUIVALENCE 

(xm , 

0 2221))* 

1X120) . 

02240) ) 

EQUIVALENCE 

(DELTAll), 

0 2241))* 

IDEL7A!20)» 

0 2260)) 

EQUIVALENCE 

(BO(l), 

0 2261) )♦ 

(80(15)* 

02275) ) 

EQUIVALENCE 

(P0» 

C ( 2276 ) ) » 

(HSUBO* 

0 2277)) 

EQUIVALENCE 

(SO* 

Cl 2278 ) ) * 

(T LN, 

O 2279) ) 

EQUIVALENCE 

(T, 

02280)) * 

(AAY LN* 

02281) ) 

EQUIVALENCE 

( AAY , 

C ( 2282 ) ) * 

(CPSUM, 

02283) ) 

EQUIVALENCE 

(HC, 

02284))* 

(TC LN* 

02265) ) 

EQUIVALENCE 

(PCP<1>» 

02286))* 

(PCP ( 25 > , 

02310)) 

EQUIVALENCE 

(DATUM (1)» 

0 2311))* 

< DATUM ( 3 ) » 

02313) ) 

EQUIVALENCE 

(PC, 

02314)) » 

(TC* 

02315)) 

EQUIVALENCE 

( IPROB, 

0 2316)) ♦ 

( JFIXT ♦ 

C ( 2317 ) ) 

EQUIVALENCE 

( IHS, 

0 2318)) , 

(ICOND* 

C ( 2319 ) ) 

EQUIVALENCE 

< I SYM, 

C ( 2320) ) » 

( I PROD* 

02321) ) 

EQUIVALENCE 

( IDID, 

02322) )♦ 

(LDRUM* 

0 2323} ) 

EQUIVALENCE 

( IORM * 

0 2323)) * 

(KDRUM* 

02324)) 

EQUIVALENCE 

U» 

C ( 2325 ) ) * 

(LI* 

C ( 2326 ) ) 

EQUIVALENCE 

(M, 

02327)) , 

(Ml. 

0 2328) ) 

EQUIVALENCE 

<101* 

02331)), 

( IQ2 * 

C ( 2332 ) ) 

EQUIVALENCE 

(N, 

C ( 2329 ) ) , 

(IQ* 

C ( 2 330 ) ) 

EQUIVALENCE 

(103, 

02333))* 

( KMAT * 

C ( 2334 ) ) 

EQUIVALENCE 

( IMAT, 

02335))* 

( IUSE ♦ 

02335)) 

EQUIVALENCE 

( IADD, 

0 2336)), 

(ITNUMB, 

0 2337)) 

EQUIVALENCE 

(ITAPE, 

02338) )* 

(P* 

02339)) 

EQUIVALENCE 

( I DEBUG* 

02340)1* 

( IFROZ* 

0 2341) ) 

EQUIVALENCE 

(COEFTl(l) 

0 3692) ) 

( COEFT 1 ( 1350 ) , 0504 

EQUIVALENCE 

(C0EFT2I1) 

0 5042)) » 

( C0EFT2 (1350 ) * 06391 

EQUIVALENCE 

( COEFT Cl). 

0 6392))* 

( COEFT ( 1350 ) * C ( 7741 

EQUIVALENCE 

( ATOM ( 1 ) * 

0 7742) )* 

( AT0M(303) , 

C ( 8044 ) ) 

EQUIVALENCE 

(MATOM(l), 

0 7742))* 

(MATOM( 303 

» 08044) 


EQUIVALENCE f TITLE* 1 ) * 0 8055)). (TITLEI315), C (8369) » 

EQUIVALENCE (ELMTIl), C( 1807) I » (ELMTU5). 01821)) 
EQUIVALENCE 7 LLMT ( 1 ) , 0 1807)), (LLMT<15)» C( 1821 > ) 
EQUIVALENCE (AMOLtl). 09268)), (AM0L11170), 010437)) 

EQUIVALENCE ( A ( 1 ) * 08578)), (A(690), 0 9267)) 


DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 


G (20*21 ) * EN(90 1 • 

DEL N(90). H0(90) * S(90»* 

DELTAI20) » 80(15). PCP<25)» 

COEFX ( 20) » DX ( 20 ) » F0RMI15) 

COEFT 1115 *90) . C0EFT2 l 15*90) 

ELMK15J* DATA ( 23) ♦ DATUM! 3 ) * 
BOX ( 15 ) * BOF ( 15) » ANS<454)» 

LLMT < 15 ) *MTSYS( 15 ) .MDATA ( 23 ) 

ANSLAB ( 454 ) . COEFT(15.90) 

MATOM( 101 *3 ) » ATOM( 101*3) 
TITLE (3.105 ) . A{ 15*46) 

AMOL< 13*90) 


EN LN( 90 ) 
X ( 20 ) 

PROD ( 3 ) 


FORMLA ( 18 ) 
SYSTM (15) 


2 FORMAT (9H0CASE NO. I5*F8.2*F8.2) 


2814 

2815 

2816 
2817 
2816 

2819 

2820 
2821 
2822 

2823 

2824 

2825 

2826 

2827 

2828 

2829 

2830 

2831 

2832 

2833 

2834 

2835 

2836 

2837 

2838 

2839 

2840 

2841 

2842 
2643 

2844 

2845 

2846 

2847 

2848 

2849 

2850 

2851 

2852 

2853 

2854 

2855 

2856 

2857 

2858 

2859 

2860 
2861 
2862 

2863 

2864 

2865 

2866 

2867 

2868 

2869 

2870 

2871 
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3 FORMAT < 1H0.64X.52HWT FRACTION ENTHALPY STATE TEMP HEAT CAP 
2ACITY/25X.16HCHEMICAL FORMULA »24X» 1 OH (SEE NOTE > *4X * 7HCAL/MOL , 12X, 
35H0E6 K»5X» 13HCAL/MOL-DEG K) 

4 FORMAT ( 1H0*84X«46HWT FRACTION ENTHALPY STATE TEMP CP 

2 25X.16HCHEMICAL FORMULA, 44X , 10H (SEE NOTE ) » 4X .7HCAL/M0L , 

3 10X.5HDEG K) 

3 FORMAT<1H+»63X,F9.5,F12.3»4X.A1*F10.2»F11.4> 

6 FORMAT < 1H+»83X«F9.5,F12.3*4X»A1*F10.?«F11.4 ) 

7 FORMAT UH0,30X»4H0/F=F9.6,15H, PERCENT FUEL=F8 .4 , 20H , EQUIVALENCE 
1 RATIO»F7*4) 

20 FORMAT (43X»46HDET0NATI0N PROPERTIES OF AN IDEAL REACTING GAS) 

21 FORMAT ( 43X.45HCALCULATED USING SPECIFIC HEAT RATIO AS GAMMA) 

22 FORMAT I 1H0»24HTHERM00YNAMIC PROPERITES/27X.12HUN8URNED GAS* 5X,10 
2H6URNED GAS) 

23 FORMAT (1X»6HP* ATM*20X*F12.5*3X»F12.5) 

24 FORMAT (1X.8HT, DEG K. 18X »Fl2.2,3X,F12,l > 

25 FORMAT (1X.9HH, CAL/G . 17X* F 12 . 1 *3X ,F12. 1 » 

26 FORMAT <1X,15HS» CAL/G-DEG K ,26X*F12.4) 

27 FORMAT (1X,11HM» MOL. WT.15X,F12.3»3X*F12»3 ) 

28 FORMAT (1X.16HCP* CAL/G-DEG K * 10X, F12.4 *3X *F12.4 ) 

29 FORMAT < IX, 12H ( OLNM/DLNP > T , 14X *F 12. 5 ,3X,F12.5 ) 

30 FORMAT ( 1X,12H (DLNM/DLNT ) P , 14X ,F12.4 ,3X ,F12.4 ) 

31 FORMAT (1X,5HGAMMA,21X,F12.4»3X,F12.4> 

32 FORMAT (1X,9HUS, M/SEC , 17X,F 12 . 1 ,3X ,F12. 1 ) 

33 FORMAT ( 1H0/1X ,40HBURNED GAS COMPOSITION IN MOLE FRACTIONS//) 

34 FORMAT (lH0/IX»21HDET0NATr0N PARAMETERS, 

22X.27HIUD IN M/SEC, HI IN KCAL/GJ) 

35 FORMAT ( 1H0.4HP/P1 ,4X , 1H=F7. 3 , 5X.21H ( DL ( P/Pl > /DLP 1 > T 1 ,H 1=F8 « 5 , 5X* 1 
28H(DL<P/P1)/DLT1>P1=F8.5,5X,20H«DL!P/P1)/DH1)P1,T1=F8.5» 

36 FORMAT < 1X,4HT/T1 ,4X , 1H=F7. 3 , 5X ,21HI DL ( T/Tl ) /DLP1 ) T 1 ,H 1=F8 . 5 ,5X, 1 
18H (DL ( T/Tl ) /DLTI 1 Pl=F8» 5. 5X, 20H( OL ( T/Tl I /DH1J PI, T1=F8. 5) 

37 FORMAT ( 1X»4HM/M1 ,4X, 1H=F7.4 ) 

38 FORMAT ( 1X,9HRH0/RH01= C 7.4) 

39 FORMAT (1X.9HMACH N0.=F7.4) 

40 FORMAT (1X,9HUD =F7 • 1 » 5X » 16HI D UD/DLPl )T1 *H1,4X, 1H = F8« 2,5X»13 

1H(£> UD/DLT1 /P14X, 2H=F8» 2* 5X, 1 5H(0 UO/DHI IP1 ,TI ,4X» 1H=F8.2 I 

1000 WRITE OUTPUT TAPE 6,18 
18 FORMAT ( 1H1 ) 

552 REWIND 3 

300 READ TAPE 3 , I ANSI I) ,1=1,454) 

MAL=P1 *14,696006 
1*1 
J=38 

DO 350 JJ=1 *N 
AMOL (1,1) =ANS ( J I 
J*J+ 4 

350 I *1+1 

WRITE OUTPUT TAPE 6,20 
IFIKODEJ351, 352,351 

351 WRITE OUTPUT TAPE 6,21 

352 CONTINUE 

8 ZERO® 00000000 0000 

106 J*34 

DO 104 I»1»N 
DO 105 11=1*3 
KXsJ+II 

105 TITLE! II»I)=ANS(KK) 

104 J=J+4 

ASSIGN 90 TO JEAN 

92 WRITE OUTPUT TAPE 6 ,2 ,KASE»HAL ,T1 


2872 

2873 

2874 

2875 

2876 

2877 

2878 

2879 

2880 
2881 
2882 

2883 

2884 

2885 

2886 

2887 

2888 

2889 

2890 

2891 

2892 

2893 

2894 

2895 

2896 

2897 

2898 

2899 

2900 

2901 

2902 

2903 

2904 

2905 

2906 

2907 

2908 

2909 

2910 

2911 

2912 

2913 

2914 

2915 

2916 

2917 

2918 

2919 

2920 

2921 

2922 

2923 

2924 

2925 

2926 
292 7 

2928 

2929 

2930 

2931 


GO TO JEAN* 190,91) 

90 IF ( KD ) 93,94,93 
94 WRITE OUTPUT TAPE 6,3 
GO TO 97 

93 WRITE OUTPUT TAPE 6,4 
97 IF( NF >451,450*451 

451 DO 100 1=1 *NF 
II = I 

MM=15 

CALL SPEC 

I F ( KD) 401 *400*401 

400 WRITE OUTPUT TAPE 6 .5 ,A( I ,34 » »A< I ,32 > ,A( I .42 ) ,A ( I ,44 ) , A ( I *36) 
GO TO 100 

401 WRITE OUTPUT TAPE 6 ,6, A ( I ,34) ,A(1 ,32 ) ,AII ,42 ) ,A(1 . 44 ) , A< I ,36 ) 

100 CONTINUE 

450 IF( NO >453,452,453 
453 DO 101 1=1, NO 
II = I 
MM=0 

CALL SPEC 

IF (KD) 41 1.410, 411 

410 WRITE OUTPUT TAPE 6,5 *A< I ,33 > »A( I , 31 ) ,A ( I ,41 ) ,A 1 1 ,43 ) , A< I ,3f ) 
GO TO 101 

411 WRITE OUTPUT TAPE 6,6, A< I ,33 > ,A ( 1 , 31 1 ,A ( I ,41 ) , A ( I ,43 ) , A ( I ,35 ) 

101 CONTINUE 

452 CONTINUE 

WRITE OUTPUT TAPE 6,7.00F.PERCF,£QUIV 
WRITE OUTPUT TAPE 6,22 
WRITE OUTPUT TAPE 6,23*P1*P 
WRITE OUTPUT TAPE 6,24»T1»T 
WRITE OUTPUT TAPE 6 ,25, HI , ANS( 4) 

WRITE OUTPUT TAPE 6,26,ANS(5) 

WRITE OUTPUT TAPE 6, 27, AMI , ANS (6 ) 

WRITE OUTPUT TAPE 6,28»C0N,ANS(7I 
WRITE OUTPUT TAPE 6, 29, ZERO, ANSI 8) 

WRITE OUTPUT TAPE 6,30.ZERO,ANS(9) 

WRITE OUTPUT TAPE 6,31 *GAMF , ANSI 10 ) 

WRITE OUTPUT TAPE6* 32 , (JUS* US 
WRITE OUTPUT TAPE 6,33 
I N = 1 
ME«2 

CALL COMP 

WRITE OUTPUT TAPE 6,34 
WRITE OUTPUT TAPE 6 ,35 »PPP , A1 , A4 ,A7 
WRITE OUTPUT TAPE 6 , 36 *TTT , A2 ,A5 ,A8 
WRITE OUTPUT T APE 6*40,(/D,A3»A6*A9 
WRITE OUTPUT TAPE 6,37,TE 
WRITE OUTPUT TAPE 6*38»TEM 
WRITE OUTPUT TAPE 6, 39, AMD 
207 WRITE OUTPUT TAPE 6,16 
16 FORMAT (1H0,30X,26HINPUT, 6“AT0MS/G//) 

IF (NE— 8 >80,80,81 

80 KK=l 
KKK=NE 
L00P=1 
GO TO 82 

81 KK*1 
KKK=8 
L00P*2 

82 DO 85 J*1 .LOOP 


2932 

2933 

2934 

2935 

2936 

2937 

2938 

2939 

2940 

2941 

2942 

2943 

2944 

2945 

2946 

2947 

2948 

2949 

2950 

2951 

2952 

2953 

2954 

2955 

2956 

2957 

2958 

2959 

2960 

2961 

2962 

2963 

2964 

2965 

2966 

2967 

2968 

2969 

2970 


2973 

2974 

2975 

2976 

2977 

2978 

2979 

2980 

2981 

2982 

2983 

2984 

2985 

2986 

2987 

2988 

2989 

2990 

2991 
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WRITE OUTPUT TAPE 6»11»(ELMT(I ) . I=KK»KKK> 

11 FORMAT (11X»8(6X»A2.7X) ) 

WRITE OUTPUT TAPE 6.12XB0F < I > » I*KK.KKK) 

12 FORMAT (5H FUEL *6X»8E15*7 > 

WRITE OUTPUT TAPE 6.13. (BOX (I ) , I*KK.KKK» 

13 FORMAT (8H OX I0ANT.3X.8E15.7 ) 

WRITE OUTPUT TAPE 6.14.JB0 ( I > » I=KK »KKK ) 

I 4 FORMAT (11H PROPELLANT <8E15*7) 

IF (LOOP-1) 86.85*86 
86 KK»9 

WRITE OUTPUT TAPE 6*15 
15 FORMA T(1H0) 

85 CONTINUE 

ASSIGN 91 TO JEAN 
GO TO 92 

91 WRITE OUTPUT TAPE 6.119 

119 FORMAT (6HONOTE • . 2X .71HWE IGHT FRACTION OF FUEL IN TOTAL FUELS AND 
10F OXIDANT IN TOTAL OXIDANTS) 

RETURN 
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2993 

2994 

2995 

2996 

2997 
2996 

2999 

3000 

3001 

3002 

3003 

3004 

3005 

3006 

3007 

3008 

3009 

3010 

3011 


SUBROUTINE ONCE IN.M) 

C 

C OUTPUTS ODD PRODUCTS 

C 

C 

COMMON C 

EQUIVALENCE (TITLE(l). C(8055))» I T I TLE ( 315 ) . C ( 8369 > ) 
DIMENSION M(105).TITLEI3.105) . TEM<10 ) . FMT < 3 ) 

WRITE OUTPUT TAPE 6.1 
B FMT ( 1 ) =740130207360 

B FMT (3) =210634606060 

B TEM(1 >=606001677302 

B TEM ( 2 ) =600104677302 

B TEM ( 3 ) =600207677302 

B TEM<4 ) =600400677302 

B TEM< 5 1=600503677302 

B TEM (6 >=600606677302 

B TEM (7 1=600711677302 

8 TEM (8 1=601102677302 

B TEM (9 >*010005677302 

B TEM (10) *010 110677302 

K*0 
KK=10 

DO 10 1*1 *N 
J*M(I I 

IF(I-KK) 20.20.Z1 

20 K*K+1 
GO TO 5 

21 X.»l 
KKsKK+10 

WRITE OUTPUT TAPE 6.1 
1 FORMAT (1H ) 

5 FMT(2 )=TEM(K) 

WRITE OUTPUT TAPE 6.FMT»TITLE(2»J) »TITLE(3« Jl 

10 CONTINUE 
RETURN 


3012 

3013 

3014 

3015 

3016 

3017 

3018 

3019 

3020 

3021 

3022 

3023 

3024 

3025 

3026 

3027 

3028 

3029 

3030 

3031 

3032 

3033 

3034 

3035 

3036 

3037 

3038 

3039 
3Q40 

3041 

3042 

3043 

3044 

3045 

3046 

3047 


SUBROUTINE SPEC 
C 

C OUTPUTS FUEL AND OXIDANT FROM SUBROUTINE INPUT 


COMMON C 

EQUIVALENCE IKONT. C (17631) 

EQUIVALENCE (I* 0(1764))* (M.CU765)) 

EQUIVALENCE (A(l). C ( 8578 ) ) > (A(690)» C(9267)> 

EQUIVALENCE (ELMT(l). C<1807>), (ELMTI15). C( 18211) 
DIMENSION A ( 15 .46 ) if TEM ( 5 ) .ANAME ( 5 ) . ELMT ( 1 5 ) 

DIMENSION 1 1 1 5> 

55 FORMAT ( 10X.4HFUEL) 

66 FORMAT ( 10X.7H0XIDANT ) 

IF (M ) 2.1.2 

1 WRITE OUTPUT TAPE 6.66 
GO TO 3 

2 WRITE OUTPUT TAPE 6.55 

3 K=0 

DO 11 J-1.15 
KK= I+M 

lFIAt J.KK) ) 12.11.12 

12 K*K+1 
TEM(K)*A( J.KK) 

ANAME <K)=ELMT(J> 

1 1 ( K) a TEM(K ) 

11 CONTINUE 

IF ( KONT )21 .20.21 

20 WRITE OUTPUT TAPE 6 .4 . ( ANAME ( I ) , 1 1 ( I ) . I =1 »K ) 

4 FORMAT ( 1H+. 18X.5(A2.I2»5X) ) 

GO TO 13 

21 WRITE OUTPUT TAPE 6.5. (ANAME( 1 1 .TEM ( I ) . 1 = 1. K) 

5 FORMAT (1H+.18X»5(A2.F8.5.3X) ) 

13 RETURN 


3048 

3049 

3050 

3051 

3052 

3053 

3054 

3055 

3056 

3057 

3058 

3059 

3060 

3061 

3062 

3063 

3064 

3065 

3066 

3067 

3068 

3069 

3070 

3071 

3072 

3073 

3074 

3075 

3076 

3077 

3078 

3079 

3080 

3081 
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SUBROUTINE COMP 
C 

C OUTPUTS COMPOSITION 


COMMON C 

EQUIVALENCE (AMOLU). CI9268H. <AMOL(1170>* C<10437)> 

EQUIVALENCE (NANA. C(176S>>, (IN* C(8046J> 

EQUIVALENCE ('ME. CU769))* (N* C(2329)> 

EQUIVALENCE ITITLEm. C ( 8055 ) ) • ( TI TLE ( 315 )» C < 8369 )) 
EQUIVALENCE (MTITLEl 1)» C18055JU (MTI TLE( 315 ) * C(8369>) 

EQUIVALENCE (OMIT.MOMITI 

DIMENSION T I TLE (3»105)»IOMIT(105)*ILESSI105) 

DIMENSION AMOL( 13*90) 

DIMENSION FMT (4) »TEM(4) 

DIMENSION MTI TLE (3*105) 

1 FORMAT UX.2A6.2X.13F9.51 

3 FORMAT UHO* 118HADDITIONAL PRODUCTS WHICH WERE CONSIDERED BUT W 
1HOSE MOLE FRACTIONS WERE LESS THAN 0.000005 FOR ALL ASSIGNED CONDI 
2TIONS/ / ) 

A FORMAT ( 1HO* 59HPRODUCTS WHICH WERE INTENTIONALLY OMITTED FROM 

1CALCULATIONS/ / ) 

B OMIT =464431636060 

B TEM ( 1 ) *>606007877302 

B TEM( 2 >=600306677302 

8 TEM( 3 1=600604677302 

B TEM( A ) *601102677302 

B FMT 1 1 ) *740130207360 

B FMT ( 3 ) => 2 10673261033 

B FMT (4 >=>053460606060 

K = 0 
KK=4 
IOM*0 
ILE=0 

IF ( ME~1 >61*60*61 
61 WRITE OUTPUT TAPE 6.44 
60 II»0 

DO 9 1 = 1, N 

IF ( MT I TLE < 1 ♦ I ) -MOM I T ) 10.100*10 
100 IOM=IOM+l 

I OMIT! I OM > - 1 
GO TO 9 

10 DO 11 J = 1 * IN 

IF ( AMOL ( J* I )“♦ 5E-05 >11*12*12 

11 CONTINUE 
ILE=I LE+1 
JLESSf 1L£)=I 
GO TO 9 

12 IF (ME-1 151.50*51 

50 WRITE OUTPUT TAPE 6.1 »TI TLE C 2* I) * T I TLE ( 3* I ) . ( AMOL( JJ* 1 1 . J J=1 * IN > 
GO TO 9 

51 11=11+1 

IF ( I I-KK ) 200*200*201 

200 K=K+1 
GO TO 5 

201 K=1 
KK=KK+4 

WRITE OUTPUT TAPE 6*44 . 

44 FORMAT ( 1H ) 

5 FMT ( 2 > =TEM( K) 


3082 

3083 

3084 

3085 

3086 

3087 



WRITE OUTPUT TAPE 6*FMT *T I TLE (2 ♦ I > *T I TLE ( 3. I > .AMOL ( 1 . I> 3142 

9 CONTINUE 3143 

IFfILE) 21*20.21 3144 

21 WRITE OUTPUT TAPE 6*44 3145 

WRITE OUTPUT TAPE 6*3 3146 

CALL ONCE (UE'ILESSI 3147 

20 IF ( I0M ) 31.30.31 3148 

31 WRITE OUTPUT TAPE 6,44 3149 

WRITE OUTPUT TAPE 6,4 3150 

CALL ONCE (IOM.IOMIT) 3151 

30 RETURN 3152 
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SUBROUTINE CORES 3153 

C 3154 

C OUTPUT ROUTINE 3155 

c 3156 

c 3157 

COMMON C 3158 

EQUIVALENCE (AN$(1), C(421)>* (AN$(454>, C<874)) 3159 

EQUIVALENCE (PERCF. C ( 1557) > • (EQUIV, C<1558>) 3160 

EQUIVALENCE (OOF. C C 1556 ) I 3161 

EQUIVALENCE ( KODE , C(1559M, (KASE, CI1560)) 3162 

EQUIVALENCE (KONT, CI1561)), (NF» C(1562)) 3163 

EQUIVALENCE (NO, C<1563)>. (NE, C(l564>) 3164 

EQUIVALENCE (NOEQ. C(1565)» 3165 

EQUIVALENCE (NOFRQ2. C< 1566)1 3166 

EQUIVALENCE (KD» C<1763>), (II* C( 17641) 3167 

EQUIVALENCE <MM» C(1765)» 3168 

EQUIVALENCE (LEN, C (1766 ) I ♦ (MAY, C(1767)> 3169 

EQUIVALENCE (NANA, C( 1.768)), (ME, C(1769)) 3170 

EQUIVALENCE (LOOP, C(1770))» (KTAPE. C(8045J) 3171 

EQUIVALENCE (BOX(l), C(1771)), (80X(15), CI1785J) 3172 

EQUIVALENCE (B0F(1>. C(1786))» (B0F(15), C(1800)I 3173 

EQUIVALENCE (60(1), C(2261)), (B0(15), CC2275U 3174 

EQUIVALENCE (IPROB. C(2316>>» (IFIXT, CI2317U 3175 

EQUIVALENCE (N, C(2329M» (IQ, C(2330)) 3176 

EQUIVALENCE (IN, CI8046M 3177 

EQUIVALENCE (KK» C(8048J), (KKK* C( 80491) 3178 

EQUIVALENCE (TITLE(l), C(8055))» (TITLE(315), C(8369)J 3179 

EQUIVALENCE (ELMTU), C(1807)J, (ELMH15), C(1821)) 3180 

EQUIVALENCE (PAR(l), C(8370J), (PAR(208), CI8577)) 3181 

EQUIVALENCE! A ( 1 ), C(8578))» (A(6901, C(9267)l 3182 

EQUIVALENCE (AMOL(l), C(9268»), (AMOL(1170J, C(10437)» 3183 

EQUIVALENCE (0ER(1), C(10438)>. (DERI169), C<10606)> 3184 

DIMENSION TITLE( 3, 105 ) t PAR ( 13,16), DER (13.13), 3185 

2 A (15, 461 ,ELMT(15I 3186 

3»ANS< 454) 3187 

DIMENSION BOX ( 15 ) ,B0F ( 15) , BO 1 15) 3188 

DIMENSION AMOL( 13,90) 3189 

DIMENSION AS0LU3) 3190 

B EX I T“ 25673 1636060 3191 

2 FORMAT ( 9H0CASE NO. 1 5 »F8. 1 ,F7,3) 3192 

3 FORMAT (1H0»64X»46HWT FRACTION ENTHALPY STATE TEMP DENSITY/ 3193 

225X * 16HCHEM I CAL FORMULA, 24X,10H( SEE NOTE 1 »4X .7HCAL/MOL ,10X, 3194 

35HDE6 K,4X»4HG/CC) 3195 

4 FORMAT ( 1H0, 84X »46HWT FRACTION ENTHALPY STATE TEMP DENSITY/ 3196 

2 25X , 16HCHEMI CAL FORMULA, 44X,10H(SEE NOTE) »4X»7HCAL/FOL» 3197 

3 8X, 5HDEG X,4X»4H6/CC) 3198 

5 FORMAT (1H+,63X,F9.5,F12.3,4X»A1,F10.2»F11,6) 3199 

6 FORMAT ( 1H+, 83X, F9, 5 ,F12.3,4X,A1,F10.2,F11»6) 3200 

7 FORMAT ( 1H0,30X,4H0/F=F9.6,15H, PERCENT FUEL“F8.4»20H, EQUIVALENCE 3201 

l RATIO*F7*4»10H, DENSITY=F7.4) 3202 

DO 60 1*1,13 3203 

60 ASOL ( I )=EXIT 3204 

IF( IPROB-2 ) 550,550,551 3205 

550 NANA“2 3206 

GO TO 552 3207 

551 NANA=1 3208 

552 REWIND 3 3209 

KANE * NANA 3210 

DO 200 ME=1,KANE 3211 

KTAPE=0 3212 


300 READ TAPE 3, I AN$tI> . 1*1,454) 

KTAPE*KTAPE+1 
HAL=ANS(2)*14. 696006 
HALL*ANS( 19) 

1F(ME-1)202»201,202 

201 LEN=NOEQ 
GO TO 203 

202 LEN-NOFROZ 

203 IF ( LEN— 13) 102,102,103 

102 KODE*0 

GO TO 106 

103 KONT=0 
KODE*13 

106 J=34 

00 104 1*1, N 
DO 105 11*1,3 
KK*J+II 

105 TITLE ( II,I)*ANS(KK) 

104 J* J+4 
MAY*1 

1000 WRITE OUTPUT TAPE 6,18 
18 FORMAT I1H1) 

CALL HEAD 
ASSIGN 90 TO JEAN 

92 WRITE OUTPUT TAPE 6 • 2 » KASE » HAL , OOF 
GO TO JEAN, (90,91) 

90 IFtKD)93»94>93 
94 WRITE OUTPUT TAPE 6,3 
GO TO 97 

93 WRITE OUTPUT TAPE 6,4 
97 IF(NF 135 1,350,351 

351 DO 100 1=1, NF 
1 1 = 1 

MM* 15 

CALL SPEC 

IF (KD >401 ,400,401 

400 WRITE OUTPUT TAPE 6, 5»A< I ,34) ,A( I ,32 > ,A < I ,42 ) , A ( I ,44 ) ,A( I ,36) 
GO TO 100 

401 WRITE OUTPUT TAPE 6 ,6, A 1 1 ,34) ,A( 1 ,32 1 »A ( 1 ,42 > ♦ A ( 1 ,44 > ,A{ 1 ,36 > 

100 CONTINUE 

350 IF( NO) 353,352*353 
353 DO 101 1*1, NO 
II = I 
MM=0 

CALL SPEC 

IF (XD 1411,410,411 

410 WRITE OUTPUT TAPE 6 , 5 ,A( I ,33 > »A< I ,31 ) , A ( I , 41 ) »A ( I ,43 ) »A ( I ,35 ) 
GO TO 101 

411 WRITE OUTPUT TAPE 6 »6»A{ I ,33 ) »A< I ,3 1 ) »A( I ,41 ) , A ( I ,43 ) *A< I ,35 > 

101 CONTINUE 

352 CONTINUE 

WRITE OUTPUT TAPE 6,7,00F»PERCF,EQUIV,HALL 
IF(KOOE) 51,50,51 

50 IN«LEN 
GO TO 56 

51 IFUONT) 53,52,53 

52 !N=K0DE 
KONT * 1, 

GO TO 56 

53 IN=LEN -13 
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KODE-O 
56 CALL READ 

IF ( IPROB-21600. 600.601 

601 WRITE OUTPUT TAPE 6*602 

602 FORMAT ( 37H0EQU It I BR I UM THERMODYNAMIC PROPERTIES) 

CALL PERPAR 

GO TO 206 

600 WRITE OUTPUT TAPE 6*8 

8 FORMAT (UHOPARAMETERS) 

IF(MAY-1>64.63»64 

63 KK-IN-2 

WRITE OUTPUT TAPE 6 .61 . ( A$OL ( I > ♦ I»1 ♦ KK> 

61 FORMAT (1H0.16X.7HCHAMBER.4X.7HTHROAT .10( 3X, A6 > ,3X .A4) 
GO TO 65 

64 WRrtE OUTPUT TAPE 6*66. (ASOL I I)»I*l*lN) 

66 FORMAT (1H0.15X.13I3X.A6M 

65 CONTINUE 
CALL PERPAR 

IF ( ME-1 > 206.205 .206 

205 WRITE OUTPUT TAPE 6.99 
99 FORMAT < 1H I 

WRITE OUTPUT TAPE 6.9 

9 FORMAT ( 12H0DER IVAT 1 VES ) 

IF (MAY-1 ) 503.502.503 

503 CALL PERDER 
GO TO 504 

502 CALL PERDEY 

504 CONTINUE 

206 WRITE OUTPUT TAPE 6.99 
WRITE OUTPUT TAPE 6.10 

10 FORMAT (15HOMOLE FRACTIONS//) 

CALL COMP 

207 WRITE OUTPUT TAPE 6,16 

16 FORMAT (1H0.30X.16HINPUT. G-ATOMS/G//) 

IF( NE— 8 >80.80.81 

80 KK*1 
KKK=NE 
L00P=1 
GO TO 82 

81 KK»1 
KKK=8 
L00P»2 

82 DO 85 J-l.LOOP 

WRITE OUTPUT TAPE 6*11 . (ELMT( I ) . I=KK,KKKJ 

11 FORMAT ( 11X.8 ( 6X. A2 .7X ) ) 

WRITE OUTPUT TAPE 6.12.IB0F ( I J ♦ I-KK.KKK J 

12 FORMAT <5H FUEL.6X.8E15.7 ) 

WRITE OUTPUT TAPE 6.13. (BOX { I ) , I=KK.KKK ) 

13 FORMAT (8H OXIDANT. 3X.8E15. 7) 

WRITE OUTPUT TAPE 6*14. <B0 ( I ) . I «KK ,KKK ) 

14 FORMAT U1H PROPELLANT. 8E15.7) 

IF (LOOP-1) 86.85.86 

86 KK»9 
KKK=NE 

WRITE OUTPUT TAPE 6*15 

15 FORMAT(IHO) 

85 CONTINUE 

ASSIGN 91 TO JEAN 
GO TO 92 

91 WRITE OUTPUT TAPE 6.119 


3273 

3274 

3275 

3276 

3277 

3278 

3279 

3280 

3281 

3282 

3283 

3284 

3285 

3286 

3287 

3288 

3289 

3290 

3291 

3292 

3293 

3294 

3295 

3296 

3297 

3298 

3299 

3300 

3301 

3302 

3303 

3304 

3305 

3306 

3307 

3308 

3309 

3310 

3311 

3312 

3313 

3314 

3315 

3316 

3317 

3318 

3319 

3320 

3321 
-3322 

3323 

3324 

3325 

3326 

3327 

3328 ’ 

3329 

3330 

3331 

3332 


119 FORMAT (6HONOTE..2X.71HWEIGHT FRACTION OF FUEL IN TOTAL FUELS AND 
10F OXIDANT TN TOTAL OXIDANTS) 

IF ( KODE >96,95.96 
96 MAYsMAY+1 
GO TO 1000 

95 IF( NAN A- 1)2 08 .2 00 .208 
208 NANA=0 
200 CONTINUE 
RETURN 
END 


SUBROUTINE H£AD 

OUTPUTS PROPER HEADING ACCORDING TO PROBLEM NUMBER 


COMMON C 

EQUIVALENCE (IPROB* CI2316)). (ME. C(1769)J 
100 FORMAT ( 25X.80HTHEORETICAL ROCKET PERFORMANCE ASSUMING EQUILIB 
2RIUM COMPOSITION DURING EXPANSION) 

200 FORMAT ( 25X.75HTHEORET I CAL ROCKET PERFORMANCE ASSUMING FROZEN 
2C0MP0SITI0N DURING EXPANSION) 

300 FORMAT < 25X.80HTHE0RETICAL ROCKET PERFORMANCE ASSUMING EQUILIB 
2RIUM COMPOSITION DURING EXPANSI0N/44X, 28HFROM AN ASSIGNED TEMPERAT 
3URE1 

400 FORMAT ( 25X.75HTHE0RETICAL ROCKET PERFORMANCE ASSUMING FROZEN 
2COMPOS I TION DURING EXPANS I0N/44X .28HFR0M AN ASSIGNED TEMPERATURE) 
500 FORMAT t 25X.74HTHEORETICAL THERMODYNAMIC PROPERTIES AT ASSIGNE 
2D PRESSURE AND TEMPERATURES) 

600 FORMAT ( 25X.74HTHEORETICAL THERMODYNAMIC PROPERTIES AT ASSIGNE 
2D TEMPERATURE AND PRESSURES) 

IF( IPROB-2 >1.2.10 

10 IF( IPROB-4) 3*4.4 

1 IF ( ME-1 >12.11.12 

11 WRITE OUTPUT TAPE 6.100 
RETURN 

12 WRITE OUTPUT TAPE 6.200 
RETURN 

2 IFCME-1114. 13.14 

13 WRITE OUTPUT TAPE 6.300 
RETURN 

14 WRITE OUTPUT TAPE 6.400 
RETURN 

3 WRITE OUTPUT TAPE 6,500 
RETURN 

4 WRITE OUTPUT TAPE 6,600 
RETURN 

END 


SUBROUTINE PEROER 
C 

C OUTPUTS PERFORMANCE DERIVATIVES 

C 

C 

COMMON C 

EQUIVALENCE (IN, CI8046)) 

EQUIVALENCE IPER(l), C( 10438)). IPER(169). CI10606)) 

DIMENSION PER(13.13) 


3333 

3334 

3335 

3336 

3337 

3338 

3339 

3340 

3341 

3342 

3343 

3344 

3345 

3346 

3347 

3348 

3349 

3350 

3351 

3352 

3353 

3354 

3355 

3356 

3357 

3358 

3359 

3360 

3361 

3362 

3363 

3364 

3365 

3366 

3367 

3368 

3369 

3370 

3371 

3372 

3373 

3374 

3375 

3376 

3377 

3378 

3379 

3380 

3381 

3382 

3383 

3384 

3385 

3386 

3387 

3388 

3389 

3390 

3391 

3392 



1 FORMAT (15H0(DLI/DLPC)PC/P13F9.5> 

2 FORMAT (15H (DLT/DLPC)PC/P13F9»5) 

3 FORMAT (16H (OLAR/OLPOPC/PF8.5.12F9.5) 
A FORMAT ( 16H |DLCS/'OLPC)PC/PF8.5»12F9«S> 

5 FORMAT ( 15H0 (DLI/DHC)PC/P*13F9»5) 

6 FORMAT ( 15H ( DLT/DHC ) PC/P*13F9.5 ) 

7 FORMAT ( 16H (DLAR/DHC)PC/P*F8.5. 12F9.5) 

8 FORMAT I16H (DLCS/'DHC)PC/P*F8.5» 12F9.5) 

9 FORMAT 116H * I HC IN KCAL/6H 

10 FORMAT t 13H01 DL I /DLPCP >S*2X* 13F9.5 ) 

11 FORMAT (13H I DLT/DLPCP ) S.2X * 13F9.5 ) 

12 FORMAT ( 15H ( DLAR/DLPCP )S 13F9.5) 

WRITE OUTPUT TAPE 6.1 . <P£R( I .2) ♦ 1=1. INJ 
WRITE OUTPUT TAPE 6.2. (PER( I.l) ♦ 1= 


WRITE OUTPUT TAPE 
WRITE OUTPUT TAPE 
WRITE OUTPUT TAPE 


(PERI I *3) * 1 = 1 * IN) 
( PER (1 ,5 )» 1 = 1 * IN) 
(PERI1.7) .1*1. 


WRITE OUTPUT TAPE 6 .6. ( PER< 1 .6) . 1 = 1 » IN ) 

. ,7. (PERI 1. 0) .1 = 1. IN) 

.8. (PERU, 101.I-1.INI 
WRITE OUTPUT TAPE 6.9 

WRITE OUTPUT TAPE 6 . 10. (PER ( I ♦ 12 ) . I =1 . IN ) 
WRITE OUTPUT TAPE 6.11. (PER( I*11)*!=1»IN) 
WRITE OUTPUT TAPE 6 » 12. (PER ( I .13 ) * I = 1 . IN ) 
RETURN 
END 


SUBROUTINE PERDEY 

OUTPUTS PERFORMANCE DERIVATIVES 


COMMON C 

EQUIVALENCE (IN, C(8046)) 

EQUIVALENCE (PERU), C(10438))» ( PER ( 169 ) , Cl 10606)) 

DIMENSION PERI 13.131 
. FORMAT (15H0(DLI/DLPC)PC/P»9X»12F9.5) 

! FORMAT (15H I DLT/DLPC JPC/P13F9.5 > 

I FORMAT ( 16H ( DLAR /DLPC ) PC/P.8X. 12F9.5 ) 

► FORMAT ( 16H (DLCS/DLPOPC/P.8X.12F9.5) 
i FORMAT U5H0(DLI/DHC)PC/P*»9X»12F9.5) 

> FORMAT (15H ( DLT/DHC ) PC/P#13F9.5 ) 

r FORMAT ( 16H ( DLAR/DHC I PC/P*«8X» 12F9.5 ) 

I FORMAT I 16H ( DLCS/DHC ) PC/P*.8X. 12F9.5 ) 

1 FORMAT ( 16H *(HC IN KCAL/G ) ) 

) FORMAT (13H0(DLI/DLPCP)S»UX.12F9.5) 

1 FORMAT ( 13H ( DLT/DLPCP ) S. 2X. 13F9.5 ) 

2 FORMAT ( 15H (DLAR/DLPCP ) S,9X. 12F9. 5 ) 

WRITE OUTPUT TAPE 6 . 1 ♦ I PER ( 1 .2 ) ♦ 1 = 2 ♦ IN ) 

WRITE OUTPUT TAPE 6.2. 1 PERI I.l) .1 = 1. IN) 

WRITE OUTPUT TAPE 6.3. (PER< I .3) ♦ 1=2. IN) 

WRITE OUTPUT TAPE 6.4. (PERI 1 .5) » 1 = 2. IN) 

WRITE OUTPUT TAPE 6.5. (PERI 1 .7) ♦ 1=2. IN) 

WRITE OUTPUT TAPE 6.6 » (PER 1 1 .6 )» 1 = 1 . IN) 

WRITE OUTPUT TAPE 6.7 . ( PERI 1 .8 ) ♦ 1 = 2 . IN) 

WRITE OUTPUT TAPE 6.8. (PER ( I ♦ 10 ) .1 = 2 * IN ) 

WRITE OUTPUT TAPE 6.9 

WRITE OUTPUT TAPE 6*10. (PERI 1 . 12 )» I =2. IN ) 

WRITE OUTPUT TAPE 6.11 » (PER ( I * 11 ) ♦ I =1 . IN) 


3393 

3394 

3395 

3396 

3397 

3398 

3399 

3400 

3401 

3402 

3403 

3404 

3405 

3406 

3407 

3408 

3409 

3410 

3411 

3412 

3413 

3414 

3415 

3416 

3417 

3418 

3419 

3420 

3421 

3422 

3423 

3424 

3425 

3426 

3427 

3428 

3429 

3430 

3431 

3432 

3433 

3434 

3435 

3436 

3437 

3438 

3439 

3440 

3441 

3442 

3443 

3444 

3445 

3446 

3447 
3446 

3449 

3450 

3451 

3452 


WRITE OUTPUT TAPE 6. 12. (PER ( I » 13 ) , I =2* IN ) 3453 

RETURN 3454 

END 3455 

3456 

3457 

SUBROUTINE READ 3458 

C 3459 

C SORTS WHAT IS ON TAPE 3 3460 

C 3461 

C 3462 

COMMON C 3463 

EQUIVALENCE (ANS(l). C(421)>. (ANS(4S4>» C(874>) 3464 

EQUIVALENCE ILEN. C(l766)>» (MAY. C<1767)> 3465 

EQUIVALENCE (LOOP, CC1770>>» (KTAPE. C(8045)) 3466 

EQUIVALENCE (IN, C(8046>) 3467 

EQUIVALENCE (NN, CI2329)) 3468 

EQUIVALENCE (PARUW CU370)), <PAft(208), C<857?)) 3469 

EQUIVALENCE (AMOL(l), C(9268)>» (AM0LU170). C(10437)» 3470 

EQUIVALENCE IDER(l), C( 10438))* (DERC169). CI10606)) 3471 

DIMENSION PAR(13,16),DER(13»13). ANS(454) 3472 

DIMENSION AMOL( 13.90) 3473 

DO 1 1=1. IN 3474 

DO 2 J=1 .16 3475 

2 PARI I »U)=ANS( J) 3476 

N=1 3477 

DO 3 J=20.32 3478 

DERII .N)=ANS( J) 3479 

3 N=N+1 3480 

N=1 3481 

J=38 3482 

DO 4 JJ*1 »NN 3483 

AMOL( I ,N)=ANS(J) 3484 

J.J+4 3485 

4 N=N+1 3486 

IF ( KTAPE-LEN ) 100. 1 ♦ 100 3487 

100 REID TAPE 3. (ANSIX) »K=1 .454 ) 3488 

KTAPE=KTAPE+1 3489 

1 CONTINUE 3490 

RETURN 3491 

END 3492 

3493 

3494 

SUBROUTINE PERPAR 3495 

C 3496 

C OUTPUTS PERFORMANCE PARAMETERS 3497 

C 3498 

C 3499 

COMMON C 3500 

EQUIVALENCE (KOOE. C( 1760 ) ) 3501 

EQUIVALENCE (IN, C(8046)>» (MAY, C(1767)> 3502 

EQUIVALENCE (PAR(l), C(8370l). (PAR(208), C(8577J) 3503 

DIMENSION PAR (13.16), NN (13) 3504 

10 FORMAT ( 5H PC/P»10X> 3505 

11 FORMAT ( 8H P, ATM »7X) 3506 

12 FORMAT I9H T, DEG X,6X.13I9) 3507 

13 FORMAT ( 9H H, CAL/G,6X» 13F9. 1 ) 3506 

14 FORMAT ( 15H S, CAL/(G)(K) 13F9.4) 3509 

15 FORMAT (10H0M, MOL WT,5X,13F9.3) 3510 

16 FORMAT ‘(UH (DLM/DLP) T.4X.13F9.5 ) 3511 

17 FORMAT (UH (DLM/DLT)P.4X.13F9.4) 3512 
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18 FORMAT < 15H CP, CAL/(GXK > 13F9.4) 

19 FORMAT ( 6H GAMMA, 9X , 13F9. A ) 

20 FORMAT ( 12H MACH NUMBEK»3X » 13F9.3 ) 

21 FORMAT ( 15H0CSTAR , FT/SEC 1319) 

22 FORMAT t3H CF , 12X, 13F9, 3 ) 

23 FORMAT (6H AE/AT,9X, 13F9.3 I 

24 FORMAT ( 15H IVAC*LB-SEC/LB13F9, 1> 

25 FORMAT (15H I, LB-SEC/L8 13F9.1) 

IF I KODE-1 ) 2 • 1 ,2 

1 WRITE OUTPUT TAPE 6,111 
111 FORMAT fBHOP, ATM »7X) 

GO TO 3 

2 WRITE OUTPUT TAPE 6,10 
CALL VARll) 

WRITE OUTPUT TAPE 6,11 

3 CALL VAR 12) 

DO 60 1=1 » IN 

60 NN( I )=PAR( I ,3)+,5 

WRITE OUTPUT TAPE 6,12, (NN(I ) ,1*1, IN) 
WRITE OUTPUT TAPE 6,13* (PARI I»4)»I=1*IN) 
WRITE OUTPUT TAPE 6 , 14 » (PAR ( I ,5 ) * I = 1 * IN ) 
WRITE OUTPUT TAPE 6 , 15 , 1 PAR ( I ,6 ) , ! = 1 , IN ) 
IF (KODE)6,5»6 

6 WRITE OUTPUT TAPE 6 , 16 , I PAR J l ,8 ) ,1 =1 ♦ IN) 
WRITE OUTPUT TAPE 6,17, ( PAR ( I ,9 ) , 1 »1 , IN ) 

5 WRITE OUTPUT TAPE 6 ,18 ♦ ( PAR ( I ,7) »'! -1 , IN) 
WRITE OUTPUT TAPE 6 , 19 , ( PAR ( I ,10 ) , I *1 , IN ) 
I F ( KODE-1 )41 ,40,41 

40 RETURN 

41 WRITE OUTPUT 'TAPE 6,20, (PAR I J ,12) » J =1 , IN) 
DO 61 1=1, IN 

61 NN(I)=PAR(I»15)+,5 
IF (MAY-1) 51,50,51 

50 WRITE OUTPUT TAPE 6 ,31 , < NN ( I) , I =2 , IN ) 
WRITE OUTPUT TAPE 6 , 32 , (PAR ( I , 16 I , r = 2, IN \ 
WRITE OUTPUT TAPE 6,33 

CALL VAR(ll) 

WRITE OUTPUT TAPE 6 , 34, ( PAR < I , 14 > , I =2, IN ) 
WRITE OUTPUT TAPE 6,35, (PAR( I, 13), 1=2, IN) 

31 FORMAT (15H0CSTAR, RT/SEC »9X»12I9I 

32 FORMAT { 3H CF , 21X, 12F9 . 3 ) 

33 FORMAT ( 6H AE/AT , 18X, 12F9 .3 ) 

34 FORMAT (15H I VAC, LB-SEC/LB, 9X» 12F9* 1 > 

35 FORMAT (15H I, L8-SEC/LB ,9X,12F9.1) 
RETURN 

51 WRITE OUTPUT TAPE 6 ,21 » (NNU) » 1 = 1* IN ) 
WRITE OUTPUT TAPE 6 ,22, ( PAR( 1, 16), 1 = 1, IN) 
WRITE OUTPUT TAPE 6,23 

CALL VAR(ll) 

WRITE OUTPUT TAPE 6, 24, (PAR (I, 14), 1 = 1, IN) 
WRITE OUTPUT TAPE 6,25, (PAR (I, 13), 1=1, IN) 
RETURN 
FND 


SUBROUTINE VAR( INDEX) 

SPECIAL FORMAT FOR PC/P*P, AND AE/AT 


3513 

3514 

3515 

3516 

3517 

3518 

3519 

3520 

3521 

3522 

3523 

3524 

3525 

3526 

3527 

3528 

3529 

3530 

3531 

3532 

3533 

3534 

3535 

3536 

3537 

3538 

3539 

3540 

3541 

3542 

3543 

3544 

3545 

3546 

3547 

3548 

3549 

3550 

3551 

3552 

3553 

3554 

3555 

3556 

3557 

3558 

3559 

3560 

3561 

3562 

3563 

3564 

3565 

3566 

3567 

3568 

3569 

3570 

3571 

3572 


COMMON C 

EQUIVALENCE (IN, C(8046)), (MAY, CU767X 
EQUIVALENCE (PAR(l), C(8370))» (PAR(208), CI8577)) 
DIMENSION FMT ( 3 ) »PAR ( 13,16) »TEM(4) » AM ( 4 ) »TEMM ( 13 ) 

B Z£RO=113300346060 

B ONE=l 1330 1346 060 

8 TW0=I1 3302346 060 

B THR=l 13303346 060 

8 FR=11 3304346060 

B TEMM(l) =600104677326 

8 TEMM< 2) =600203677326 

B TEMM{ 3 ) =600302677326 

B TEMM< 4) =600401677326 

B TEMM( 51=600500677326 

B TEMM ( 6 ) =600511677326 

B TEMM( 7 ) =600610677326 

B TEMM(8J =600707677326 

B TEMM(9) =601006677326 

B TEMM{10)=601105677326 

B TEMM (11 >=010004677326 

8 TE’4Mf 12 >=010103677326 

B TEMM( 13 ) =010202677326 

8 FMT ( 1 ) *740130207360 

IF ( INDEX— 2 ) 1,2,3 

1 TEM(1 )=l.0E04 
TEM(2J=1.0E05 
TEM(3)»1.0E06 
AM( 1 ) «THR 
AM( 2 ) =TWO 
AM(3)»ONE 
AM(4) "ZERO 

GO TO 4 

2 TEM(1)=1.0 
TEM( 2 ) = 10.0 
TEM(3)»100»0 
AM( 1 ) »FR 
AM( 2 ).=THR 
AM( 3 ) =TWO 
AM( 4 ) =ON£ 

GO TO 4 

3 TEM( 1 ) =10*0 
TEM ( 2 ) =100,0 
TEM(3 ) =1000*0 
AM( 1 ) =THR 
AM( 2 I =TWO 

AM ( 3 ) =ONE 
AM(4) “ZERO 

4 DO 5 1=1, IN 

IF (1-1) 53,50,53 

50 IF (MAY-1) 53,52,53 

52 IF ( INDEX-11 ) 53,5,53 

53 CONTINUE 

FMT (2 ) =TEMM( I ) 

DO 6 J=1 ,3 

I F ( PAR ( I , I NDEX ) —TEM ( J ) ) 10,6,6 

10 FMT ( 3 ) =AM( J) 

11 WRITE OUTPUT TAPE 6,FMT,PAR( I , INDEX) 

GO TO 5 

6 CONTINUE 
FMT(3)=AM(4) 


3573 

3574 

3575 

3576 

3577 

3578 

3579 

3580 

3581 

3582 

3583 

3584 

3585 

3586 

3587 

3588 

3589 

3590 

3591 

3592 

3593 

3594 

3595 

3596 

3597 

3598 

3599 

3600 

3601 

3602 

3603 

3604 

3605 

3606 

3607 

3608 

3609 

3610 


3614 

3615 

3616 

3617 

3618 

3619 

3620 

3621 

3622 

3623 

3624 

3625 

3626 

3627 

3628 

3629 

3630 

3631 

3632 


. OUTPUT TAPE 6, FMT, PARI I, INDEX) 

5 CONTINUE 
RETURN 


3633 

3634 

3635 
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TABLE I. - ITERATION EQUATIONS TO DETERMINE EQUILIBRIUM COMPOSITIONS FOR EITHER ASSIGNED PRESSURE AND 
TEMPERATURE, ASSIGNED PRESSURE AND ENTHALPY, OR ASSIGNED PRESSURE AND ENTROPY 


A In U;l 


A In Ug A In u^ 


Ann_i 


- A In A 

A, In T 
(*) 


a l,n-l 

a l,n 

y^, a l,k n k 

k=l 

m 

/ , a l, k%c n k 

A Abj + ^ 
1 

a 2,n-l 

a 2,n 

n 

a 2,k n k 

k^T 

m 

y] a a,A n k 

k^l 

A Abg + 

a 3,n-l 

a 3,n 

a 3 , k n k 

a 3, A n k 

A Ab 3 + 


m 

S a 2,k 


o 0 


m 

a l,k n k ] ^ 
k=l 


a 3,k n k 


2,1^% a 3, A n k 


%n k + AP 


■ Pn-1 «n 


^ «k n k + ^ ^kVk ‘AA + ^Vk 


k=l k=l 

n m 


E a i,k A n k S a 2,k^k n k •••••• 4-1 -4i 2-» /k ” k A ? a + L^A a 

T~7 lr-^1 k=l k=l K=1 


A4 + AP + 7 


This column not used for assigned pressure and temperature. 


Iteration for assigned pressure and temperature 






TABLE II. - EQUATIONS FOR EVALUATING DERIVATIVES WITH RESPECT TO LOGARITHM OF 


TEMPERATURE AT CONSTANT PRESSURE 


/d In u-A 



■ 

■ 


H3BH 

fb In A\ 

Constant 

\o In T / p 

gag 


||lgg§j|g 


\d In T/p 

r ll 

r 12 

r 13 

. . . 

• • • 

a l,n-l 

%n 

n 

^^ a l,k n k 

k=l 

m 

~^y y a l,k \ n k 

k=l 

r 21 

r 22 

r 23 

. . . 

• • « 

a 2,n-l 

a 2,n 

n 

a 2,k n k 

k=l 

m 

~ > % t k \ n k 

r 31 

r 32 

r 33 

• * * 

* * • 

%n-l 

a 3,n 

^^ a 5,k n k 

“ 'S v a 5. A n k 

k=l 

• • » 



m 

• « » 

. . . 

. . . 

. . . 

. . . 

* • ♦ 

• • • 

. . . 

• • « 

• « • 

. . . 

. . . 

• * * 

. . . 


2,n-l 

3jn-l 



0 

0 

0 


a l,n 

a Q 
2, n 

a_ 

3, n 



0 

0 

0 

-Wn 

y a l,k n k 

m 

^/ a 2,k n k 

m 

^^ a 5,k n k 



0 

0 

0 

-pw 

k=l 
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TABLE IV. - FIRST DERIVATIVES OF SOME THERMODYNAMIC PROPERTIES AND ROCKET PERFORMANCE PARAMETERS 










wh 





TABIE VI . - S IMULTANBOUS. EQUATIONS FOR OBTAINING PARTIAL DERIVATIVES OF 
DETONATION PRESSURE, TEMPERATURE, AND VELOCITY 




TABLE VII. - SIMULTANEOUS LEAST SQUARES FITTING OF HEAT CAPACITY, ENTHALPY, AND ENTROPY 

Heat capacity: -jf = a 1 + a g T + a 3 T 2 + a 4 T 5 + a g T . 

HS - H° m t* 2 T 3 T 4 a 6 " («S/ R ) 

Enthalpy: ■ 1 RT — - a x + a 2 ? + a 3 -3- + a 4 -y- + a 5 -5- + ? 

s2 m2 m3 

Entropy: -jy = a-^ In T + a g T + a 3 T + a 4 y t a 5 T + a 7 . 

^ ^ ^ a 4 a 5 a ’ X ° X 1 *2 C ° nStant 

£[a + (in T) g £d +lnT ) T + Z(* + 4 ln t ) t3 Z(! + 4 “ T > 4 Z4 Z lnT 11 lnT ° 

Z(l + lnT ) T 4Z t2 !Z t3 iZ* 4 SZ 1 f Z T T ° ■# T ° + + 

§Z* 3 iz^ S 3 liZ* 6 jg ffi- 8 *§ I I 

£(§ + Ai„t)t 3 g>» lUZ^ SZ T? tZ t2 sZ t3 T 0 T TT_ + 

2 (| + |i"t)t 4 i^v sg>» SZ T? toZ 18 £> 5 £>* t ° t t S T4 (^ + ? H V j!2 + 

* t s> & ey ££ ° ° i ° ]D(-v^) 

vmT y. *yy 4 z * 3 m - 4 ° * p 0 io 1 


a l 

a 2 

a 3 

Zfa + (in T) 2 ] 

Z(l + in T ) T 

Z(4 + 4 in T )' 1 ' 2 

Z(l + lnT ) T 

!Z t2 

!Z t3 

Zd + l lnT > 2 

§Z t3 

HZ' 14 

Z(f + T lnT ) T3 

HZ* 4 

IZ* 5 

Z(! + 4 ln t ) t4 

1Z 15 

l«V T f5 

T35Z-/ 

z* 

*f 

£> 

Z ln T 

Z T 

£> 2 
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T o 

T g 
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T o 

1 

2 

3 



Tg 

In T 0 

T o 

2 


a 5 

H-f 

a? 

Z(! + 4 in t ) t4 

Z4 

Z ln T 

%£? 

* P 
2 

Z* 

143W 
120 Z-r 

IZ T 

ny 

«2> 7 

4Z t2 

4Z t3 

441 VV 
400Z-/ 

i 4Z t3 

4E t4 

4Z r3 

Z£ 

0 

4Z 1,4 

0 

* p 

*6 

0 

0 

T o 

l 


5 

T o 


io 


1 

4 




* p is the number of temperature points used to fit data. 




TABLE VIII. - PROGRAM INPUT 


Card name 

Optional 

card? 

Reactant 

No 


Card format 


(l-15 oxidants) 
(1-15 fuels) 


( 5(A2,F7 .5) ,F8 .5,F9. 5,A1,F8 . 5,A1,I1,F8 .5) 


Omit -Insert 

Yes 

Any 

Blank 

No 

1 

Problem (H,S;T,S;T,P;P,T; or DETN), case 

— 

No 

1 

Schedule (of P c /P, or P, or T) 

No 

1-5 

Blank 3, 

No 

1 


5 Mixture (ft, o/F, #F, P, T, code, debug) 


Blank c 


(4(2A6,3X)) 


(A5,I5) 


(5F10.2) 


( 5F10. 2 ,I5,16X,Il) 


For DETN problems, the schedule cards and the blank card that follows them must be omitted. 
There may be one, two, or three blank cards. 

(1) One blank card: Program returns to read another sequence of cards starting with type 3. 

(2) Two blank cards: Program returns to read another sequence of cards starting with type 1 

( 3 ) Three blank cards: Program terminates. 































TABLE IX. - EXAMPLES OF TOPICAL REACTANT CARDS 


Content 

Reactant formula 

Relative 

weights 

(a) 

Enthalpy, 
cal/(g) (mole) 

State 

Temper- 
ature , 
°K 

Fuel 

or 

oxi- 

dant 

Density, g/cc, or 
heat capacity, 
cal/(g) (mole) (°K) 

Columns 

1-2 

3-9 

10-11 

12-18 

19-20 

21-27 

28-29 

30-36 

37-38 

39-45 

46-53 

54-62 

63 

64-71 

72 

73-80 


N 

C 

AL 

MG 

H 

i. 

i. 

i. 

1. 

2. 

H 

H 

0 

0 

4. 

1.66955 

1. 

1. 

CL 

0 

1. 

.05126 

0 

S 

4. 

.00841 



72.06 

18.58 

9. 

.2 

.16 

-70730. 

-2999.082 

0 . 

143700. 

-68317.4 

S 

L 

S 

S 

L 

298.15 

298.15 

298.15 

298.15 

298.15 



H 

N 

2. 

. 780881 

0 

.209795 

AR 

.004662 

C 

. 00015 



100. 

100. 

0. 

-7 . 202 

G 

G 

298.15 

298.15 

E 

0 


H 

0 

2. 

2. 









100. 

100. 

0 . 

0 . 

G 

G 

298.15 

298.15 

F 

0 

6.8922 

7.0215 


a Relative weight of fuel in total fuels or oxidant in total oxidants as designated in column 72 
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TABLE X. - THEORETICAL ROCKET PERFORMANCE ASSUMING EQUILIBRIUM COMPOSITION DURING EXPANSION 
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CASE NO. 


51 500.0 0. 




CHEMICAL 

FORMULA 




FUEL 

N 

l. 00000 

H 

4.00000 

CL 1.00000 

0 

4.00000 

FUEL 

H 

1.86955 

0 

0.03126 

C 1.00000 

s 

0.00841 

FUEL 

AL 

1.00000 






FUEL 

0 

1.00000 

MG 

1.00000 




FUEL 

H 

2.00000 

0 

1.00000 





WT FRACTION ENTHALPY 
CAL/MOL 

0.72060 -70730.000 

0.18580 -2999.082 

0.09000 0. 

0.00200 -143700.000 
0.00160 -68317.399 


STATE TEMP 

DENSITY 

DEG K 

G/CC 

S 298.15 

-0. 

L 298.15 

-0. 

S 298.15 

-0. 

S 298.15 

-0. 

L 29S. 15 

-0. 


0/F a 


0 . 


PERCENT FUEL«100.0000, EQUIVALENCE RATIO* 1.9480. 


OENSITY* 0. 


PARAMETERS 


PC/P 

CHAMBER 

1.000 

P, ATM 

34.02 

T, DEG K 

2737 

H f CAL/G 

-485.0 

S, CAL/(G)(KI 

2.5264 

M. MOL WT 

23.126 

(DLM/DLP) T 

0.00294 

IDLM/DLT)P 

-0.0586 

CP. CAL/IG) l K) 

0.5783 

Gamma 

1.1956 

MACH NUMBER 

0. 


CSTAR, FT/SEC 
CF 

AE/AT 

IVAC, LB-SEC/LB 
1. LB-SEC/LB . 


THROAT 

EXIT 

EXIT 

1.777 

2.500 

2.750 

19.15 

13.61 

12.37 

2492 

2351 

2317 

-613.9 

-684.7 

-703.7 

2.5264 

2.5265 

2.5264 

23.192 

23.217 

23.221 

0.00147 

0.00092 

0. 

-0.0310 

-0.0200 

0. 

0.5265 

0-5037 

0.4606 

1.2071 

1.2134 

1.2282 

1.000 

1.279 

1.340 

5015 

5315 

5015 

0.679 

0.846 

0.885 

1.000 

1.065 

1.103 

193.6 

198.2 

200.5 

105.9 

131.8 

138.0 


EXIT 

EXIT 

EXIT 

3.000 

3.250 

3.500 

11.34 

10.47 

9.721 

2317 

2317 

2302 

-721.0 

-736.8 

-751.5 

2.5265 

2.5265 

2.5265 

23.220 

23.218 

23.220 

1. 

0. 

0.00085 

0. 

0. 

-0.0190 

0.4582 

0.4560 

0.4959 

1.2297 

1.2310 

1.2171 

1.391 

1.436 

1.491 

5015 

5015 

5015 

0.919 

0.950 

0.977 

1.159 

1.215 

1.264 

203.5 

206.3 

208.6 

143.3 

148.0 

152.3 


EXIT 

EXIT 

EXIT 

4.000 

10.000 

34.023 

8.506 

3.402 

1.000 

2248 

1900 

1503 

-777.5 

-939.7 

-1117.0 

2.5264 

2.5264 

2.5264 

23.227 

23.251 

23.256 

0.00069 

0.00013 

0.00001 

-0.0156 

-0.0032 

-0.0002 

0.4881 

0.4551 

0.4441 

1.2197 

1.2329 

1.2384 

1.579 

2. 132 

2.819 

5015 

5015 

5015 

1.024 

1.276 

1.504 

1.346 

2.278 

5.200 

212.0 

234.4 

258.3 

159.5 

198.9 

234.5 


EXIT 

EXIT 

EXIT 

100.000 

1000.000 

10000^00 

0.3402 

0.0340 

0.0034 

1219 

790 

529 

-1241.9 

-1436.0 

-1563.1 

2.5264 

2.5264 

2.5264 

23.256 

23.256 

23.422 

0.00000 

-0.00000 

0.01402 

-0.0000 

0.0000 

-0.3080 

0.4402 

0.4699 

0.9971 

1.2409 

1.2223 

1.1515 

3.422 

4.803 

6.458 

5015 

5015 

5015 

1.646 

1.846 

1-965 

11.33 

65.47 

409.2 

274.3 

297.9 

312.7 

256.6 

287.7 

306.3 


DERIVATIVES 


( OL 1/DLPC ) PC/P 


0.00237 

0.00198 

0.00187 

0.00170 

0.00157 

0.00149 

0.00143 

0.00096 

0.00057 

0.00039 

0.00020 

0.00027 

( OLT/DLPC ) PC/P 

0.00871 

0.00459 

0.00273 

-0.00077 

-0.00076 

-0.00075 

0.00258 

0.00197 

-0.00041 

-0.00104 

-0.00109 

-0.00102 

0.02512 

( DLAR/QLPC )PC/P 


-0. 

-0.00100 

-0.00352 

-0.00335 

-0.00320 

-0.00061 

-O.OOlOi 

-0.00239 

-0.00251 

-0.00237 

-0.00211 

0.01767 

(OLCS/DLPOPC/P 


0.00089 

0.00089 

0.00089 

0.00089 

0.00089 

0.00089 

0.00089 

0.00089 

0.00089 

0.00089 

0.00089 

0.00089 

I DLI/DHOPC/P* 


0.34617 

0.35249 

0.35042 

0.32480 

0.30433 

0.29812 

0.30520 

0.33631 

0.35673 

0.36623 

0.37404 

0.37407 

( DLT/DHC ) PC/P* 

0.63188 

0.69410 

0.72544 

0.79342 

0.79750 

0.80130 

0.73687 

0.74862 

0.80297 

0.82289 

0.83008 

0.77767 

0.36649 

( DLAR/DHC 1 PC/p* 


0. 

0.01799 

0.07353 

0.10323 

0.12750 

0.08327 

0.08562 

0.09977 

0.09685 

0.09439 

0.03416 

-0.26417 

( DLCS/DHC) PC/P» 
*(HC IN KCAL/G1 


0.36947 

0.36947 

0.36947 

0.36947 

0.36947 

0.36947 

0.36947 

0.36947 

0.36947 

0.36947 

0.36947 

0.36947 

(DL1/DLPCP)S 


0.82848 

0.50386 

0.45325 

0.42015 

0.39370 

0.36953 

0.32873 

0.17850 

0.10158 

0.06882 

0.03547 

0.02083 

(DLT/DLPCPIS 

■0. 15730 

-0.16781 

-0. 17332 

-0.18581 

-0.18678 

-0.18768 

-0. 17586 

-0.17801 

-0.18842 

-0.19247 

-0. 19411 

-0.18185 

-0.11130 

(OLAR/OLPCPJS, 


0. 

0.32027 

0.36093 

0.39307 

0.41862 

0.45213 

0.49118 

0.63260 

0. 70592 

0. 73 707 

0.78267 

0.84761 


MOLE FRACTIONS 


AL1CLUG) 

0.00018 

0.00004 

0.00002 

0.00001 

0.00001 

0.00001 

0.00001 

0.00001 

0. 

0. 

0. 

0. 

0. 

AL1CL3IG) 

0.00007 

0.00004 

0.00002 

0.00002 

0.00002 

0.00002 

0.00002 

0.00001 

0. 

0. 

0. 

0. 

0* 

ALIOlCLi (G) 

0.00064 

0.00021 

0. 00009 

0.00008 

0.00008 

0.00008 

0. 00008 

0.00005 

0. 

0. 

0. 

0. 

0. 

C2H4(G> 

0. 

0. 

o. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0.00192 

C 101(G) 

0.26432 

0.26358 

0.26278 

0.26253 

0.26252 

0.26250 

0.26239 

0.26196 

0.25770 

0.24751 

0.23231 

0.17527 

0.11892 

C102(G> 

0.01780 

0.01926 

0.02034 

0.02063 

0.02063 

0.02063 

0.02076 

0.02127 

0.02581 

0.03596 

0.05100 

0.10802 

0.16249 

ClOlSl(G) 

0.0Q0O5 

0.00005 

0.00006 

0.00006 

0.00006 

0.00006 

0.00006 

0.00006 

0.00006 

0.00005 

0.00004 

0.00003 

0.00002 

CLKG) 

0.00176 

0.00090 

0.00056 

0.00050 

0.00052 

0.00054 

0.00052 

0.00042 

0.00007 

0. 

0. 

0. 

0. 

HUG) 

0.00619 

0.00309 

0.00190 

0.00168 

0.00175 

0.00 182 

0.00175 

0.00141 

0.00024 

0.00001 

0. 

0. 

0. 

H2{ G) 

0.32142 

0.32439 

0.32599 

0.32638 

0.32636 

0.32633 

0.32651 

0.32715 

0.33209 

0.34217 

0.35702 

0.41399 

0.46288 

HlCLl(G) 

0.13179 

0.13354 

0.13415 

0.13427 

0.13424 

0.13421 

0.13425 

0.13442 

0. 13497 

0.13581 

0. 13695 

0.13715 

0.13586 

H1C10UG) 

0.00007 

0.00003 

0.00002 

0.00002 

0.00002 

0.00002 

0.00002 

0.00001 

0. 

0. 

0. 

0. 

0. 

H2UUG) 

0.14646 

0.145S5 

0.14472 

0.14447 

0.14445 

0.14443 

0.14430 

0.14387 

0. 13964 

0.12910 

0.11335 

0.05620 

0.00782 

HLSl(G) 

0.00045 

0.00033 

0.00025 

0.00023 

0.00024 

0.00025 

0.00025 

0.00022 

0.00007 

0.00001 

0 . 

0. 

D. 

N2SKG) 

0.00153 

0.00179 

0.00193 

0.00196 

0.00194 

0.00193 

0.00193 

0.00199 

0.00224 

0.00233 

0.00234 

0.00236 

0.00238 

MG1 ( G ) 

0.00007 

0.00003 

0.00001 

0.00001 

0.00001 

0.00001 

0.00001 

0.00001 

0. 

0. 

0. 

0. 

0. 

MGLClUG) 

O.OOOOL 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

MG1CL2<G> 

0.00101 

0.00108 

0.00109 

0.00110 

0.00109 

0.00109 

0.00109 

0.00110 

0.00111 

0.00072 

0.00011 

0. 

0. 

MG1HKG) 

0.00001 

0. 

0. 

0. 

0. 

0. 

0- 

0. 

0. 

0. 

0. 

0. 

0. 

N2(G) . 

0.06830 

0.06847 

0.06854 

0.06855 

0.06855 

0.06855 

0.06855 

0.06857 

0.06864 

0.06862 

0.06858 

0.06857 

0.06905 

Ail 01(G) 

0.00003 

0.00001 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

01(G) 

0.00001 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0* 

0. 

0. 

0. 

0. 

OlHl(G) 

0.00076 

0.00029 

0.00015 

0.00013 

0.00013 

0.00014 

0.00013 

0.00009 

0.00001 

0. 

0. 

0. 

0. 

SKG) 

0.00010 

0.00005 

0.00003 

0.00003 

0.00003 

0.00003 

0.00003 

0.00003 

0. 

0. 

0. 

0. 

0. 

SlOl(G) 

0.00017 

o. ooou 

0.00007 

0.00006 

0.00007 

0.00007 

0.00007 

0.00006 

0.00001 

0. 

0 . 

0. 

0 . 

S102 ( G) 

0.00007 

0.00005 

0.00004 

0.00004 

0.00004 

0.00004 

0.00004 

0.00004 

0.00001 

0. 

0. 

0. 

0. 

MG10KS) 

0. 

0. 

0. 

0. 

0 . 

0 . 

0. . 

0. 

0. 

0.00039 

0.00100 

o.oom 

0. 

MG1CL2IS) 

0. 

0 . 

0. 

0 . 

0 . 

0 . 

0 . 

0 . 

0. 

0. 

0. 

0 . 

0.00112 

AL2031S) 

0 . 

0 . 

0. 

0.00191 

0.01702 

0.03093 

0.03723 

0.03726 

0.03733 

0.03733 

0.03730 

0.03730 

0.03756 

AL203 ( L ) 

0.03671 

0.03710 

0.03722 

0.03532 

0.02021 

0.00630 

0. 

0. 

0. 

0. 

0 . 

0 . 

0 . 

AUDIT 10NAL 

PRODUCTS WHICH WERE CONSIDERED 

BUT WHOSE 

MOLE FRACTIONS WERE LESS THAN 0.000005 FOR ALL ASSIGNED CONDITIONS 



AL1(G) 
N102 ( G) 

AL10KG) 
02 1 G) 

C1H3( G ) 
S103( G ) 

C2H2(G) 

SMS) 

C2N2(G) 

MGICL2CL) 

CL2(G) CL 101 ( G ) 

MGKS) MGl(L) 

MG10KG) 

Cl(S) 

MG101HKG) 

AL1(S) 

NLHKG) 
AL 1 ( L ) 

PRODUCTS WHICH WERE INTENTIONALLY OMITTED FROM CALCULATIONS 





AL2 ( G) 

C1H2 ( G) 

MGtSHG) 

S1Q1CL2IG) 

AL1HUG) 

C1H4(G) 

NI(G) 

AL201IG) 

C1NUG) 

N1H3IG) 

AL202( G) 

C 1Q1CL2 ( G ) 
N20KG) 

CUGI 
ClSl(G) 
NISI (G) 

C2(G) C31G) 

C1S2 ( G) CL1C1NKG) 

S2(G> S1CL2 IG) 

ClCLl(G) 
CL102IG) 
SICL2 ( G) 

C1CL4(G) 

CL20KG) 

S2CL2IG) 

C1HKG) 

H1CINKG) 

SiOlCLl(G) 



INPUT, 

G-ATONS/G 






FUEL 

OXIDANT 

PROPELLANT 

N 

0.6132922E-02 

0. 

0.6132922E-02 

H 

0.4839509£ 

0. 

0. 4839509E 

CL 

-01 0.6132922E 

0. 

-01 0.6132922E 

0 C 

-02 0.25066096-01 0. 1266924E-0 l 0. 

0. 0. 0. 
-02 0. 250660 9E-01 0. 1266924E-01 0. 

S 

1066117E-03 

1066117E-03 

AL 

0.3335804E-02 

0. 

0.3335804E-02 

MG 

0.49603 1 7E-04 
0. 

0.4960317E-04 


. 51 500.0 0. 


CASE NO. 
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TABLE XI- - THEORETICAL ROCKET PERFORMANCE ASSUMING FROZEN COMPOSITION OURING EXPANSION 


CASE NO. 51 500.0 0. 


FUEL 

FUEL 

FUEL 

FUEL 

FUEL 


WT FRACTION ENTHALPY STATE TEMP OENSITY 



CHEMICAL FORMULA 




CAL/MOL 


OEG K 

G/CC 

N 

1.00000 

H 4.00000 

CL 1.00000 0 

4.00000 

0.72060 

-70730.000 

S 

298.15 

-0. 

H 

1.86955 

0 0.03126 

C 1.00000 S 

0.00841 

0.18580 

-2999.082 

L 

298. 15 

-0. 

AL 

1.00000 




0.09000 

0. 

S 

298.15 

-0. 

0 

1.00000 

MG l. 00000 



0.00200 - 

143700.000 

S 

298.15 

-0. 

H 

2.00000 

0 1.00000 



0.00160 

-68317.399 

L 

298.15 

-0. 



0/F* 0. 

, PERCENT FUEL* 

100.0000, EQUIVALENCE 

RATIO* 1.9480, 

DENSITY* 0. 





PARAMETERS 

CHAMBER 

PC/P 

1.000 

P, ATM 

34.02 

T, DEG K 

2737 

H, CAL/G 

-485.0 

S, CAL/CGHK) 

2.5264 

M, HOL WT 

23.126 

CP, CAL/ (G ) ( K) 

0.4699 

GAMMA 

1.2238 

MACH NUMBER 

0. 


CSTAR. FT/SEC 
CF 

AE/AT 

I VAC . LB-SEC/L8 
It LB-SEC/LB , 


THROAT 

EXIT 

EXIT 

1.788 

2.500 

2.750 

19.02 

13.61 

12.37 

2459 

2311 

2270 

-614.6 

-683.3 

-702.0 

2.5264 

2.5264 

2.5264 

23.126 

23.126 

23.126 

0.4641 

0.4605 

0.4596 

1.2272 

1.2294 

1.2301 

1.000 

1.275 

1.345 

4980 

4980 

4980 

0.686 

0.849 

0.888 

1.000 

1.062 

1.097 

192.8 

197.1 

199.2 

106.2 

131.4 

137-4 


MOLE FRACTIONS 

ALlCLi(G) 0.00018 
C102(G> 0.01780 
H2(G) 0.32142 
HlSl(G) 0.00045 
MG1CL2 (G) 0.00101 
01(G) O.OOOOL 
S102(G) 0.00007 


AL1CL3IG) 0.00007 
C101SKG) 0.00005 
HlCLl(G) 0.13179 
H2SKG) 0.00153 
MGIHUG) 0.00001 
OLHKG) 0.00078 
AL203 ( L ) 0.03671 


AL101CL1 ( G) 0.00064 
CLi(G) 0.00176 
H1C101IG) 0.00007 
MGl ( G ) 0.00007 
N2(G) 0.06830 
SKG) 0.00010 


C101(G) 

HUG) 

H20MG) 

MG1CL1 (G) 

N10KG) 

SlOltG) 


0.26432 

0.00619 

0.14646 

0.00001 

0.00003 

0.00017 


ADDITIONAL PRODUCTS WHICH WERE CONSIDERED BUT WHOSE MOLE FRACTIONS WERE LESS THAN 0.000005 FOR ALL ASSIGNEO CONDITIONS 


AL1(G) 

ALIOKG) 

C1H3 { G ) 

C2H2 ( G ) 

C2H4(G) 

C2N2(G) 

CL2(G) 

CL10MG) 

MG10MG1 

MG101H1 (G) 

NIHKG) 

CHS) 

N102 ( G ) 
AL2Q3 ( S ) 

02(G) 

ALUS) 

5103(G) 

ALL(L) 

SMS) 

MG10MS) 

MG1CL2 ( S) 

HGtCL2(D 

MGL(S) 

MGMLI 


PRODUCTS WHICH WERE INTENTIONALLY OMITTED FROM CALCULATIONS 


AL2(GI AL1HKG) 

C1H2 (G) C1H4(G) 

MGISKG) NUG) 

S101CL2 ( G ) 


AL20KG) 

ClNl(G) 

N1H3(G> 


AL202 ( G ) C1(G) 

C101CL2(G) ClSllG) 
N201IG) NISI (G) 


C2(G) 
C1S2 (G ) 
S2(G) 


C3(G) 

C1CLMG) 

CICL4(G) 

C1HUG) 

CL1C1NL (G) 

CL102( G) 

CL20HG) 

HlClNl(G) 

S1CL1 ( G I 

S1CL2 ( G) 

S2CL2C G) 

SlOlCLi(G) 


INPUT, G-AT0MS/G 


N 

FUEL 0.61329226-02 

OXIDANT 0. 

PROPELLANT 0.6132922E-02 


H 

0. 4 8 39 509 E- 01 

0. 

Q. 4839509E— 01 


CL 

0.6132922E-02 

0. 

0.6132922E-02 


0 

0.25066096-01 

0. 

0. 2506609E-0 1 


C 

0.1266924E-01 

0. 

0 . 1 266924 E-0 I 


S 

0. 1066117E-03 

0 . 

0.1066117E-03 


0.3335804E-02 

0 . 

0. 3335804E-02 


MG 

0.4960317E-04 

0 . 

0.4960317E-04 


CASE NO. 


51 500.0 0. 
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TABLE XIX. - THEORETICAL THERMODYNAMIC PROPERTIES AT ASSIGNED PRESSURE ANO TEMPERATURES 
CASE NO. 50 0.1 34.293 







WT FRACTICN 

ENTHALPY 

STATE TEMP 

DENSITY 


CHEMICAL 

FORMULA 




CAL/MCL 

OEG K 

G/CC 

FUEL 

H 2.00000 




1.00000 

0. 

G 298.15 

-0. 

OXIOANT 

N 0.78088 0 

0.20979 

AR 0.00466 

C 0.00015 

l. 00000 

-7.202 

G 298.15 

-0. 


0/F=34. 292861, PERCENT FUEL- 2.6334, EQUIVALENCE RATIO- I. 0000, DENSITY- 0. 


EQUILIBRIUM THERMODYNAMIC PROPERTIES 


P, ATM 

0.0100 

0.0100 

0.0100 

0.0100 

0.0100 

0.0100 

0.01C0 

0.0100 

0.0100 

0.0100 

0.0100 

0.0100 

0.0100 

T, DEG K 

6000 

5500 

5000 

4500 

4000 

3500 

3000 

2500 

2000 

1500 

1000 

500 

300 

H, CAL/G 

10066.8 

8048.6 

5825.5 

4546.9 

3967.9 

3595.5 

2656.3 

570.8 

-165.4 

-407.4 

-590.0 

-752.2 

-r812. 3 

S, CAL/IG) C K 1 

5.5853 

5.2324 

4.8097 

4.5420 

4.4066 

4.3071 

4. 0U9 

3.2550 

2.9351 

2.7976 

2.6502 

2.4269 

2.2737 

M, MOL WT 

10.995 

11.982 

13.337 

14.192 

14.519 

14.735 

16.261 

22.053 

24.4L6 

24.641 

24.648 

24.648 

24.648 

<DLM/DLP>T 

0.03312 

0.05700 

0.03807 

0.01340 

0.00470 

0.01138 

0.07459 

0.04710 

0.00354 

0.00Q09 

0. 

0. 

Q. 

(DLM/DLTJP 

-0.6567 

-1.2242 

-0.8918 

-0.3391 

-0.1041 

-0.1834 

-1.4100 

-1.1183 

-0.1098 

-0.0036 

-0. 

-0. 

-0. 

CP, CAL/(G)(K> 

2.8811 

4.8553 

3.5858 

1.6743 

0.8065 

0.8612 

3.7142 

2.8329 

0.6812 

0.3899 

0.3449 

0.3052 

0.2968 

GAMMA 

1.1615 

1.1261 

1.1244 

1.1582 

1.2535 

1.2625 

1.1319 

1.1057 

1.1677 

1.2630 

1.3050 

1.3591 

1.3730 


MOLE FRACTIONS 


ARUG1 

0.00344 

0.00375 

0.00417 

0.00444 

0.00454 

0.00461 

0.00509 

0.00690 

0.00764 

0.00771 

0.00771 

0.00771 

0.00771 

Cl(G) 

0.00009 

0.00Q05 

0.00001 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

C 10 1(G) 

0.00002 

0.00007 

0.00013 

0.00014 

0.00015 

0.00015 

0.00016 

0.00015 

0.00004 

o. 

0. 

0. 

0. 

C1021G) 

0. 

0. 

0. 

Q. 

0. 

0. 

0.00001 

0.00007 

0.00021 

0.00025 

0.00025 

0.00025 

0.00025 

HI ( G ) 

0.30905 

0.33678 

0.37477 

0.39852 

0.40622 

0.40080 

0.32001 

0.06585 

0.00186 

0. 

0. 

0. 

0. 

H2< G 1 

0. 

0.00Q01 

0.00003 

0.00013 

0.00065 

0.00463 

0.04138 

0.06921 

0.01318 

0.00047 

0. 

0. 

0. 

H20KGI 

0. 

0. 

0. 

0. 

0. 

0.00010 

0.01174 

0.18877 

0.32669 

0.34582 

0.34642 

0.34642 

0.34642 

N1(G) 

0.48942 

0.35411 

0.16863 

0.05223 

0.01071 

0.00135 

0.00009 

0. 

0. 

0. 

0. 

0. 

0. 

N2(G» 

0.04323 

0.13665 

0.26467 

0.34495 

0.37371 

0.38279 

0.42085 

0.57403 

0.63898 

0.64544 

0.64563 

0.64562 

0.64562 

N1HUG) 

0.00001 

0.00001 

0.00001 

0.00001 

0.00001 

0.00001 

0. 

0. 

0. 

0. 

0. 

o. 

0. 

NIDI ( G) 

0.00012 

0.00031 

0.00070 

0.00134 

0.00248 

0.00502 

0.01008 

0.00726 

0.00113 

0.00004 

0. 

0. 

0, 

01(G) 

0.15462 

0.16825 

0.18684 

0.19808 

0.20077 

0.19503 

0.14349 

0.02335 

0.00047 

0. 

0, 

0. 

0. 

02(G) 

0. 

0. 

O.OOOOL 

0.00003 

0.00018 

0.00159 

0.01627 

0.02631 

0,00509 

0.00020 

0, 

0. 

0. 

OlHl(G) 

0. 

0.00001 

0.00003 

0.00012 

0.00058 

0.00393 

0.03084 

0.03810 

0,00472 

0.00008 

0. 

0. 

0. 


ADDITIONAL PRODUCTS WHICH WERE CONSIDERED BUT WHOSE MOLE FRACTIONS HERE LESS THAN 0.000005 FOR ALL ASSIGNED CONDITIONS 


C2(G ) C3(G> CIHI (G > CIH2IG) 

HIC1NHG) HLCIOKG) N1H3(G) NL02IG) 


CIH3IG) 

C1H4IGI 

C2H2(G) 

C2H4tG> 

C IN 1 f G > 

C2N2 (G) 

N201(G) 

C1IS) 






INPUT, G-ATOMS/G 


FUEL 

OXIDANT 

PROPELLANT 


H 

0.9920635E 00 

0 . 

0.2810945E-01 


N 

0 . 

0.5391588E-01 
0. 5238821E-0L 


0 


AR 


C 


0 . 

0.1448528E-01 
0. 1407485E-OI 


0 . 

0.3218875E-03 

0.3127670E-03 


0. 

0. 1035674E— 04 
0. 1006329E-04 


CASE NO. 


50 


0.1 34.293 
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TABLE XIII. - DETONATION PROPERTIES OF AN IDEAL REACTING GAS 


CASE NO. 


52 14.70 298.15 


CHEMICAL FORMULA 

FUEL H 2 

OXIDANT 0 2 


WT FRACTION 

1. 00000 

1.00000 


ENTHALPY 

CAL/MOL 

0 . 

0 . 


STATE TEMP 

DEG K 

G 298.15 

G 298.15 


0/F= 7.936508, PERCENT FUEL* 11.1901, EQUIVALENCE RATID* 1.0000 


THERMODYNAMIC PROPERITES 

UNBURNED GAS 


P, ATM 1.00000 

T, DEG K 298. L 

H, CAL/G 0. 

S, CAL/G-DEG K 

M, MOL. WT. 12.011 

CP, CAL/G-DEG K 0.5774 

( OLNM/DLNP I T 0. 

(DLNM/DLNT )P 0- 

GAMMA 1.4016 

US, M/SEC 537.9 


BURNED GAS 
18.82775 
3682.1 
678.9 
4. 1602 
14.485 
3.9127 
0.08280 
-1.3715 
1.1292 
1544.9 


BURNED GAS COMPOSITION IN MOLE FRACTIONS 

H L < G) 0.08124 H2(C) 0.16326 H201IG) 0.53167 OUGJ 

□2(G) 0.04849 Q1H1(G) 0.13685 


DETONATION PARAMETERS ( UD IN M/SEC, HI IN KCAL/G) 


P/Pl = 18.828 
T/Tl = 12.350 
UD = 2840.4 
M/Ml » 1.2060 
RHO/RHOl 3 1.8386 
MACH NO.* 5.2809 


(DL(P/P1)/DLPI)T1,H1= 0.03783 
(DL(T/T1)/0LP1)T1,HL= 0.05178 
(D UD/DLPL) TlfHl = 55.10 


INPUT, G-ATDMS/G 


FUEL 

OXIDANT 

PRUPELLANT 


H 

0.9920635E 00 

0 . 

0.1U0124E-00 


0 

0. 

0.6250000E-01 
0. 5550622E-01 


(DUP/Pl )/DLTl) PI =-l. 04086 
(0L(T/U)/0LT1) PI— 1,04234 
(0 UO/DLTDPl * -95.85 


( OL ( P/P 1 1 /DH DPI 
<DL(T/T1)/0H1)P1 
(D U0/0H1 ) PI , Tl 


CASE ND. 52 14.70 298.15 


HEAT CAPACITY 

CAL/MOL-DEG K 
6.8922 
7.0215 


0.03848 


,Tl= 0.19925 
* Tl = 0.08883 
= 290.22 



TABLE XIV. - PRELIMINARY OUTPUT 


INPUT 


N I. OOOO H 
C 1.0000 H 
AL 1.0000 
MG 1.0000 3 

H 2.0000 0 


4.0000 CL 1.0000 

1.8695 0 0.0313 

- 0 . - 0 . 

1.0000 - 0 . 

1.0000 - 0 . 


0 4.0000 

S 0.0084 

-0. 

- 0 . 

- 0 . 


-o. 

72.0600 

-70730.00 

S 

298.150 

-o. 

18.5800 

-2999.08 

L 

298.150 

-0. 

9.0000 

0. 

S 

298.150 

-0. 

0.2000 

143700.00 

s 

298.150 

-o. 

0.1600 

-68317.40 

L 

298.150 


0. 

0. 

0. 

0. 

0. 


]. 


Read in from fuel and 
Voxidant cards (see 
Table IX) 


OXIDANT 

FUEL 

N 

H 

CL 

0 

C 

s 

AL 

MG 


0. 

-0.484973E 03 

0. 

0. 

0. 

0. 

0 . 

0 . 

0 . 

0 . 


0 . - 0 . 

0. 1Q9605E-00 -0.562651E-01 

0. 61 3 292 2 5 E~ 02 
0.48395094E-01 
0.61329225E-02 
0.25066092E-01 
0. 12 6692 43 E- 01 
0.1066II68E-03 
0* 33358G43E-02 
0.49603175E-04 


.h f , Vp V£ 

(»?)! 


51 H* S 

0. 

0.48497294E 03 

0.33358 04 3t-02 


0. 09999999E 03 
0.61329225E-02 
0.496031756-04 


0. 19480125E 01 
0.48395094E-01 


0- 50000000E 03 g% 6 2“"*“’' p Pr0blem 

0.61329225E-02 0.25066092E-01 0. 126692ME-01 0. 106611686-03 hQ.^b? fi 2, . . 

b£ (i = 7, 8) 


THE SPECIES 


AL203 ( L ) 


HAS NO DATA AT T= 2269.8 


Printed during frozen ex- 
pansion calculation 
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TABLE XV. - INTERMEDIATE OUTPUT 


(a) Example of first Iteration for combustion conditions for problem in Table X. 


-0.48497294b 03 


0.39999999E 03 
0.6L329225E-02 
0.490031756-04 


0.250660926-01 0. 126692436-01 ()• 10661 1686-03 


O.lLOOOOt 

02 

O.IOOOOOE 

01 

0. 

0.3003006 

01 

0. 


0 . 700000t 

Ol 

0.7337186 

02 -0.2155446 

03 

0. 1000006 

01 

0. 490000E 

02 

0.100000b 

01 0.5000006 

01 

o. 


0.2300006 

02 

0. 194079E 

03 -0.729533b 

03 

o. 


O.IOOOOOE 

01 

0.2300006 

02 0.2000006 

01 

0. 


0.1300006 

02 

-0.1576416 

02 -0.6154086 

03 

0.3000006 

01 

0.500000c 

01 

0.200003c 

01 0.380000b 

02 

0.3000006 

01 

0.2400006 

02 

0.4811886 

02 -0.9692406 

03 

0. 430000b 

01 

0. 1600006 

02 

0. 

0.5000006 

01 

0. 


0. 110000c 

02 

0.110858b 

03 -0.407513b 

03 

J. 


0.3000006 

01 

0. 

0.700000b 

Ol 

o. 


0.7000006 

01 

0.2646346 

02 -0.2651616 

03 

0. 


0. 


0. 500000C 

01 0. 2000006 

Ol 

0.2000006 

Ol 

U.SOOOOOfc 

01 

0.6843156 

01 -0.210814E 

03 

0. 


0. 200000b 

Ol 

0.300000c 

Ol 0.2000006 

01 

o. 


0.600000C 

01 

0.2407226 

02 -0.2 10BB5E 

03 

0. 


0. 


0. 

0.3000006 

01 

0. 


0. 


-0.344453b 

02 -0.836849E 

02 

0.7000006 

01 

0.230000b 

02 

0. 1300006 

02 0.2400006 

02 

0. 


0. 


Q. 1985496 

03 -0.130099E 

04 

0.7337186 

02 

0.1940796 

03 

-0.157641b 

02 0.4811886 

02 

-0.3444506 

02 

0. 1985496 

03 

0.2742566 

04 -0.4574196 

04 

-0.1211376 

02 

-0.866015b 

Ol 

-0. 1924446 

02 -0.1649856 

02 


-0. 216086b 01 0.901 08 7fc-01 

0.38276260E 04 


OMIT 
omit 
oMi r 
OMIT 

omit 

omit 

OMIT 

jmi r 


ALl(G> 

AL21 G) 
ALlCUlG) 
ALICLI(G) 
ALlHlli) 
AL10U31 
AL2UKG) 
AL2321G) 
ALll)lCLl(G) 
C1(G» 

C2(G> 

C3(G) 

ClCbUGl 

C1CL41S) 

C 1H1 (G> 
CIH21G) 
CIH31G) 

C 1H4 ( G I 
C2H2 (G) 
C2H4( G) 
CINllG) 
C2N2(G> 
c ioi to) 

3102(G) 

C101CL2 ( G) 

C101SKG) 

CiSKG) 

C1S2(G) 

Cbl(G) 

0.2(0 

CbiCUllG) 

CL10K3) 

CL102( 3) 

CL231C 3) 

Hl(G) 

H2<G) 
H1CLK G) 
HICINKG) 
HlCiOl(G) 
H201 (G) 
HISllG) 

H2S 1 ( G ) 

MGl(U) 

MG1CLK G) 

MGICL2I G> 

MGIHHG) 

MG10UG) 

MG101HKG) 

MOlSltG) 

N1(G) 

N2(&) 

NlHl(G) 

N1H3IG) 

NIOllG) 

N 102 ( U > 
N20KG) 


0. L 000036 01 


0.1300006 01 

0. 100000E 01 


O.IOOOOOE 01 


0.4000001: 01 0. 0. 0. 

0. 

0. 160000E 02 0. 300000E 01 0. 0. 200000b 01 

0. 

o. 0. 0.600000b 01 0.3000006 01 

0. 

0.5000001: 01 0. 700000E 01 0.2000006 01 0.200000E 01 

0. 

0.1700006 02 O.IOOOOOE 01 0. 0. 

0. 

0.100000b 01 0. 700000E 01 0. 0. 

0.. 

o. 0. 0.500000E 01 0. 

-0.904752E-08 

0. 0. 0. 0.6000006 01 

0. 

0. 0. 0.2000006 01 0. 

0. 

O.UOOOOt 02 0. 7000006 01 0.5000006 01 0.600000E 01 

-0.117286L-07 

0.1 108586 03 0.2646346 02 0.684315E 01 0.2407226 02 

-0.1334346-07 

-0. 7721486 01 -0.1697256 02 -0.1565896 02 -0.1756376 02 

0.213483446-00 
0.2619516 02 


O.IOOOOOE 01 0. 


O.IOOOOOE 01 0. 
0 . 0 . 
O.IOOOOOE 01 0. 
0.1000006 01 0. 
0 . 0 . 
0.1000006 01 0. 
O.IOOOOOE 01 0. 
O.IOOOOOE 01 0. 
0. 0. 
O.IOOOOOE 01 0. 


O.IOOOOOE 01 0- 
0 . 0 . 
0. 0. 
O.IOOOOOE 01 0. 
O.IOOOOOE 01 0. 
O.IOOOOOE ol o. 
0 . 0 . 
0.1000006 01 0. 
0.1000006 01 0. 
O.IOOOOOE 01 0. 
O.IOOOOOE 01 0. 
O.IOOOOOE 01 0. 

0.1000006 01 o. 
0.1000006 01 0. 
0.1000006 01 0. 
O.LOOOOOfc 01 0. 
0.1300006 01 0 . 
0 . 0 . 
0 . 0 . 
O.IOOOOOE 01 0. 
0. I OOOOOE 01 0. 


0.1491546 Ol 
-0 . 2390426 Ol 


0.275359E 01 
-0.9157836 01 


-0.6BU4SE 00 0.6345026 01 0.3729236 02 


0.1858L7E Ol -0.5586876 01 0.481389C 02 


-0.2889556 Ol 

0. 

-0.18S501E 01 
-0.7833026 01 
0. 

-0.4622766 Ol 
0.9368416 Ol 
0.6726906 01 


0.1209066 02 0.4189506 02 


0.1579456 02 
0.1385266 02 
0. 

0.186688E 02 
0.437705E-00 
-0. 5936 326 01 


0.453860E 02 
0.5494826 02 

0. 

0.5216006 02 
0.3398956 02 
0.4200396 02 


0.1649196 01 0.2331146 01 0.449784E 02 


0.166865C 01 
-0.4100496 01 


0.6196626 01 
0.4228516 01 


-0.408197E 01 0.7334516 01 0.383840E 02 


0.3113136 Ol 
0.471037E 01 
0. 370726E Ol 
0. 

0.3655726 01 
0.42628UE 01 
0. 3293426-00 
0.7642776-01 
0.2844696-00 
-0.1308826 01 
-0,6119016 00 
-0.8426516 00 
-0.1633396 Ol 
-0.2421006 01 
0. 

0. 

0, 539068E 01 
-0.2038446 01 
0. 

0.901690E 00 
-0. 7119656 01 


0.9154936 01 
0.3750506 01 
0.9644796 00 
0. 

0.5302836 01 
-0.2117126 01 
0.8721686 01 
0.5201296 Ol 
0.7005526 01 
0. 4429836 01 
-0. 64 1490E 01 
0.9531036 01 
0.529269E 01 
0.4228046 01 


0.3880456 01 
0.1423606 02 


0.6606286 01 
0.7228936 01 


0.2016506 02 
0.264685C 02 
0.3248686 02 

0. 

0.4139656 02 
0.361409E 02 
0.3395656 02 
0.3913696 02 
0.242697b 02 
0.395599E 02 
0.495606b 02 
0.341 17 76 02 
0.372802b 02 
0.4417696 02 


OMIT 

91SMG) 

DUG) 

0. 

0.1000006 

01 

0. 

0. 

0. 

0.1863726-01 

0. 

0. 10155 36 

02 

0. 

0.2582576 

02 


02(G) 

0.1000006 

01 

0. 

-0.139669E 01 

0.4140336 

01 

0. 353955E 

02 


01HKG) 

0.1000006 

01 

0. 

0.221818E 01 

0.5007596 

Ol 

0.319669b 

02 


Sl(C) 

0.1300006 

01 

3. 

-0.2612296-03 

0.1115436 

02 

0.269356E 

02 

OMIT 

52(G) 

0. 


0. 

0. 

0. 


0. 


OMIT 

SICLUG) 

0. 


0. 

0. 

0. 


0. 


OMIT 

S1CL2(G) 

0. 


0. 

0. 

0. 


0. 


OMIT 

S2CL2(3) 

S1011G) 

0. 

O.IOOOOOE 

01 

3. 

0. 

0. 

0. 1721766-00 

0. 

0.4252936 

01 

0. 

0. 375415b 

02 


S102 ( G ) 

O.IOOOOOE 

01 

3. 

-0.1073876 Ol 

-0. 3056846 

01 

0.460935b 

02 


S103IG) 

O.IOOOOOE 

01 

0. 

-0. 850698E Ol 

-0.2141136 

Ol 

0.5599826 

02 

OMIT 

SIOICLUG) 

0. 


3. 

0. 

0. 


0. 


OMIT 

S101CL2IG) 

0. 


0. 

0. 

0. 


0. 



SUS1 

0. 


0. 

0. 

0. 


0. 



MG10KS) 

0. 


0. 

0. 

0. 


0. 



MG1CL21 S) 

0. 


3. 

0. 

0. 


0. 



MG1CL2I L ) 

0. 


0. 

0. 

0. 


0. 



MGKS) 

0. 


0. 

0. 

0. 


0. 



MGKL) 

0. 


0. 

0. 

0. 


0. 



CHS) 

0. 


3. 

0. 

0. 


0. 



AL203I 5) 

0. 


0. 

0. 

0. 


0. 



AL203(L) 

0. 


0. 

-0.2160B6E 01 

-0.3444506 

02 

0.492399b 

02 


ALl(S> 

0. 


0. 

0. 

0. 


0. 



All(U 

0. 


0. 

0. 

0. 


0. 



Case number, problem 
0/P, gF, ft, P c 
h 0 , b? (1 - 1, 2, . . 
(1 - 7, 8) 


type 


6) 


I Iteration equations 
j corresponding to Table I 


l Solutions to equa- 
J tlons of Table I 
Current T, P, A, X 
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TABLE XV. - concluded. INTERMEDIATE OUTPUT 
(b) Example of converged data at throat for problem In Table X. 


PC/P 

P, ATM 

T, DEG K 

H, CAL/G 

S, CAL/(G)(K) 

M, MOL WT 

CP, CAL/(G)(K) 

(dlm/dlp)t 

(dlm/dlt)p 

GAMMA 

AE/AT 

MACH HUMBER 

I, LB- SEC /LB 

I VAC, LB-SEC/LB 

CSTAR, FT/SEC 

(dlt/dlpc)pc/p 

(DLl/DLPC)PC/P 

(dlar/dlpc)pc/p 

(dl(a/w)/dlpc)pc/p 

(dlcs/dlpc)pc/p 

(dlt/dhc)pc/p 

( DLI /DHC ) PC /P 

(dlar/dhc)pc/p 

(dl(a/w)/dhc)pc/p 

(dlcs/dhc)pc/p 

(dlt/dlpcp)s 

(DLI/DLPCP)S 

(dlar/dlpcp)s 

(dl(a/w)/dlpcp)s 

(dlcs/dlpcp)s 


0*177662 156 

01 

0.191503526 

02 

0. 

249236226 

04 

-0.613861236 03 

0.2526448LE 01 

0.231920566 

02 

0.526469556 

00 

0. 

147291416- 

-02 

-0.31039675E-01 

0.120706726 01 

0.099999996 

01 

0.99998981E 

00 

0. 

105900886 

03 

0.193636716 03 

0.501506016 04 

0.679409626 

00 

0. 


0. 



0. 


0.45 87299 96 -02 

0.236520396- 

-02 

-0. 



-0.999108436 00 

0.891573736-03 

0.694099236 

00 

0.346174216- 

-OO 

0. 



0.369469636-00 

0.36946963E-00 

0.167809896- 

-00 

0.828480976 

00 

0. 



0. 

0. 



ALUG) 

0. 

OMIT 

AL2IG) 

0. 


ALlCLltG) 

0.00004 


ALICL31G) 

0.00004 

OMIT 

AL1HKG) 

0. 


ALIOKG) 

0 . 

OMIT 

AL201 (G) 

0. 

OMIT 

AL202 ( G ) 

0. 


ALIOICLKG) 

0.00021 

OMIT 

C1(G) 

0. 

OMIT 

C2(G) 

0. 

OMIT 

C3(G) 

0 . 

OMIT 

C1CL1IG) 

0. 

OMIT 

C1CL41G) 

0. 

OMIT 

C1H1IG) 

0. 

OMIT 

CIH21G) 

0. 


C1H31G) 

0. 

OMIT 

C1H4IG) 

0. 


C2H2IG) 

0. 


C2H91G) 

0. 

OMIT 

CINKG) 

0. 


C2N2(G) 

0. 


ClQl(G) 

0.26358 


C102(G) 

O.OL926 

OMIT 

C 101CL2 ( G) 

0. 


C101SKG) 

0.00005 

OMIT 

ClSl(G) 

0. 

OMIT 

C 1S2 ( G J 

0. 


CL 1 (G ) 

0.00090 


CL2 ( G) 

0. 

OMIT 

CL 1C 191 1 G ) 

0. 


CHOKG) 

0. 

OMIT 

CL102IG) 

0. 

OMIT 

CL2011G) 

0. 


HI ( G) 

0.00309 


H2(G) 

0.32439 


tUCLl(G) 

0.13354 

OMIT 

H1C1NKG) 

0. 


H1CIOKG) 

0.00003 


H201(G) 

0.14555 


H1SKG) 

0.00033 


H2SKG) 

0.00179 


MGl(G) 

0.00003 


MGICLKG) 

0. 


MG1CL2 ( G ) 

0.00108 


MG1HHG) 

0. 


MG10KG) 

0 . 


MG101HI ( G) 

0 . 

OMIT 

MG1SKG) 

0 . 

OMIT 

91(G) 

0 . 


92(G) 

0.06847 


,91H1 f G) 

0 . 

OMIT 

N1H3IG) 

0 . 


N10HG1 

0.00001 


9102(G) 

0 . 

OMIT 

9201(G) 

0 . 

OMIT 

NISKGl 

0 . 


01(G) 

0 . 


02(G) 

0 . 


'OIHI(G) 

0.00029 


S1(G> 

0.00005 

OMIT 

S2(G) 

0 . 

OMIT 

S1CLKG) 

0 . 

OMIT 

S1CL2IG) 

0 . 

OMIT 

S2CL2 (G) 

0 . 


SlOl(G) 

0.00011 


S 102 ( G) 

0.00005 


S1Q3IG) 

0 . 

OMIT 

5101CL 1(G) 

0 . 

OMIT 

S101CL2IG) 

0 . 


Sl(S) 

0 . 


MGIOKS) 

0 . 


MG1CL21S) 

0 . 


MG1CL2IL ) 

0 . 


MG1 (S) 

0 . 


MG1ILI 

0 . 


CHS) 

0 . 


AL203IS) 

0* 


AL203 ( L ) 

0.03710 


ALUS) 

0 . 


AH (LI 

0 . 



Entropy per unit mass , 


140 



Figure 1. - System entropy as function of temperature and 
constant system pressure in vicinity of melting point. 
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ENTER 



Figure 2. 


MAIN PROGRAM ONE 


(input program) . 
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Does \ 

I 

Call Subroutine 

' “I GAUSS for equations - 

/ \IDEBUG = 0/*™ 


(no) 


T 

.. , r ,., 

h c - h* h c h 

c/ ( ’ " a»(h„ - h.) 

1 + "ftS(VVT) 

R ’ TP K 

A p c . P„/IP C /P{ S » equllltel> " ^ * 


CJ ■ ^ 

light 4 

Call Subroutine 

/n \ GAUSS for equations - 

(Sk^it®; . »> 


£ 0.4x10“*? 


Calculate 
equilibrium y 


15 (HH), > 87 - 57 


Calculate 
frozen y, Cp/R 
also 

- o 

Vd In T/ p 

(t-l2-S\ .o 

Vd In P /m 


Calculate 
performance 
parameters and 
their derivatives 


Calculate 
combustion 
parameters and 
derivatives 


Convert 
composition to 
mole fraction 


1 = 0/“Ves) — *-{ Write answers r 


NO EQ » NO EQ + 1 


IADD - IADD + If 

r 

“1 Write answers [» 


$ < 8 > ■ m’ ' 1 

In T n In T + Xn 


Call core- 

Call core- 

Call core- 

Call core- 

load 5 

load 3 


load 4 

output 

frozen 

next 

detonation 

program 

program 

problem 

program 


Are 

/ \ thermo data 

t V^y - ^\for jfch speciea present^ 
— ^ at current T 


Call j I 

’ BYPASS "HJ - J + 1 
(J,2) U I ~ 1 


equilibrium computations) . 

















Figure 4. - MAIN PROGRAM THREE (frozen composition expansion) 




















Figure 5. - MAIN PROGRAM FOUR ( Chapman- Jouguet detonations) 



















146 


TYPICAL 23 WORD RECORD ON MASTER DATA TAPE 

[Note: If both solid and liquid phase of 

the same species are present, data for 
the liquid mu3t Immediately precede 
that for solid. ] 


1 

A L 2 3 ( 

Chemical formula for 
species 

2 

L ) 

3 

Blank 

4 

2317 

Temperature range of 
data for this 3pecies 
in °K 

S 

5000 

6 

1000 

Temperature range for 

7 5000 


8 

a l 

Least-squares coeffi- 
cients for first 
interval 

9 

a 2 

10 



11 

*4 


12 

a 5 


13 

®6 


14 

a? 


15 

300 

Temperature range for 

16 

1000 

in °K 

17 

a l 

Least-squares coeffi- 

18 

a 2 

interval 

19 

a 3 


20 

a 4 


21 

a 5 


22 

a 6 


23 

a 7 




Figure 6. - Subroutine SEARCH. 






















Are any 'v 
Condensed speclesp- 
^^consldered / 


Call BYPASS(J,1) 


Add species 
contribution^ 
t0 r lk 


/ number of 
moles equal 
zero 


I Add contribute, oi 
I to column for 
variable A 


. /'what 
lK^s IPIXT> 


Add contribution 
for temperature 
column and right- 
hand side 






IHS=> 


Construct 

’ 


entropy 


Add column 
for condensedU 
, apecies 


{£) — <fs IPROD> 


Add contribution 
. for temperature 
column and right- 
hand side 


Complete 
column for 
variables 
’ A and T,also ' 
enthalpy or 
entropy row 
and right- 
hand side 


Figure 8. - Subroutine MATRIX 
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NASA-Langley, 1962 E— 1670 










